功能:遍历用户指定的文件夹,把文件夹中所有的excel文件的第一个表格的数据复制到本excel文件中.注意,每个excel文件中有效数据行的判断标准是A列的最后一个有数据的单元格的行号,比如A列到第10行结束,B列到第11行结束,那么程序将不会复制第11行. 说明:鄙人也不是大闲人,也就没有去迎合各种需求,只是根据自己的需要去写的,拿出来分享一下. 闲话少说,直接上代码,复制到宏命令代码里面,执行combine宏即可实现. Sub combine() Dim folder As String D
VBA 在第二个sheet中查找第一个sheet中不存在的值 Sub Macro2() ' ' Macro2 Macro ' 宏由 Lizm 录制,时间: 2019/04/10 ' ' Dim colSvcId As Integer Dim i As Integer Dim j As Integer j = 47 Dim valS As String Dim findRes As Boolean '查找service_id For rowSvcId = 2 To 43 va