""      dstID=.Sheets("dst").Cells(dstRowNo,1).Text             src1RowNo=1      DoWhile.Sheets("src1").Cells(src1RowNo,1).Text<>""        src1ID=.Sheets("src1").Cells(src1RowNo,1).Text                 IfdstID=src1IDThen-IMDN开发者社群-imdn.cn"> ""      dstID=.Sheets("dst").Cells(dstRowNo,1).Text             src1RowNo=1      DoWhile.Sheets("src1").Cells(src1RowNo,1).Text<>""        src1ID=.Sheets("src1").Cells(src1RowNo,1).Text                 IfdstID=src1IDThen - IMDN开发者社群-imdn.cn">
登录
首页 » Windows开发 » VBA合并两个Excel表的数据到目标表

VBA合并两个Excel表的数据到目标表

于 2022-02-04 发布 文件大小:10.02 kB
0 80
下载积分: 2 下载次数: 1

代码说明:

"" 从src1.name和src2.age按ID获取数据,然后将数据设置为dst Sub hebing()     Dim dstRowNo As Long     Dim src1RowNo As Long     Dim src2RowNo As Long          With ActiveWorkbook         dstRowNo = 1         Do While .Sheets("dst").Cells(dstRowNo, 1).Text ""             dstID = .Sheets("dst").Cells(dstRowNo, 1).Text                          src1RowNo = 1             Do While .Sheets("src1").Cells(src1RowNo, 1).Text ""                 src1ID = .Sheets("src1").Cells(src1RowNo, 1).Text                                  If dstID = src1ID Then

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 696518资源总数
  • 104349会员总数
  • 32今日下载