记录Excel将第二个Sheets内容判断添加至第一个Sheets对应行的列值中(VBA编程语法)
注意:这个是我突然想合并两个Excel是做的某列值随机判断进行赋值的VBA执行脚本,如果要更改可自行根据需求更改;
Sub loopDb()
Set dbsheet1 = ThisWorkbook.Sheets("Sheet1") ---获取第一个页签
Set dbsheet2 = ThisWorkbook.Sheets("Sheet2") ---获取第二个页签
lr1 = dbsheet1.Cells(Rows.Count, 1).End(xlUp).Row ---获...
原创
2020-09-07 10:59:10 ·
613 阅读 ·
0 评论