【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
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.coloradmin.cn/o/2487705.html
如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈,一经查实,立即删除!