【VBA】【EXCEL】【文件】读写已打开EXCEL

张开发
• 2026/4/10 9:25:12 • 15 分钟阅读

最新文章

推荐文章

相关文章

分享文章

【VBA】【EXCEL】【文件】读写已打开EXCEL
Sub readExcel() Set wb Workbooks(数据源.xlsx) Set ws wb.Sheets(1) For i 2 To 100 For j 2 To 1000 If ws.Range(B j).Value Then If InStr(me.Range(A i).Value, ws.Range(B j).Value) 0 Then If me.Range(C i).Value Then me.Range(C i).Value ws.Range(D j).Row Else me.Range(C i).Value me.Range(C i).Value —— ws.Range(D j).Row End If End If End If Next j Next i End Sub

更多文章