如何通过条件使用VBA复制另一个表格区域到本表格

jamesbiz

一个excel文档内有两个表格，一个是《分析表》，另一个是《基础数据》，由于《分析表》经常存在上百或近500个项目报价，需要从基础数据内获取对应的配置再复制过来放在分析项目右侧，人工一个个查找复制效率严重低下，如何通过VBA按钮，从《分析表》的J列条件值关键字，自动从《基础数据》复制对应的区域到《分析表》右侧？又能保留被复制区域单元格内的计算式？
自动复制表格区域.zip (15.09 KB, 下载次数: 5)

2018-6-20 22:41 上传

点击文件名下载附件

Chip_Kenny

1. Sub zz()
   
2. Dim rng As Range, ar, ws As Worksheet
   
3. Set ws = Sheets(1)
   
4. ar = ws.Range("j1:j" & ws.[j1048576].End(3).Row).Value
   
5. With Sheets(2)
   
6.     For i = 1 To UBound(ar)
   
7.         If Len(ar(i, 1)) Then
   
8.             Set rng = .Columns(1).Find(ar(i, 1))
   
9.             rng.CurrentRegion.Copy ws.Cells(i, "k")
   
10.         End If
    
11.     Next
    
12. End With
    
13. End Sub

复制代码

jamesbiz

Chip_Kenny 发表于 2018-6-21 11:34

非常感谢您的关注和VBA编码， Chip_Kenny，你太厉害了，这个方法能帮到非常多的人节省很多的重复工作时间，严重提升效率。我也要开始学习VBA。

jamesbiz

Chip_Kenny 发表于 2018-6-21 11:34

我通过你的代码，又增加了另外一段代码进来，先运行从《汇总表》的条目”获取单价列表“到分析表，再运行从《基础数据》表中“获取基础含量”，结果出现提示“类型不匹配”，烦请大神再帮忙解决一下，非常感谢！
自动复制表格区域3.zip (31.88 KB, 下载次数: 2)

2018-6-21 17:47 上传

点击文件名下载附件

lsc900707

jamesbiz 发表于 2018-6-21 17:47
我通过你的代码，又增加了另外一段代码进来，先运行从《汇总表》的条目”获取单价列表“到分析表，再运行 ...

1. Sub zz()
   
2.     Dim rng As Range, ar, ws As Worksheet
   
3.     ar = Range("j1:j" & [j1048576].End(3).Row).Value
   
4.     With Sheets("基础数据")
   
5.          For i = 4 To UBound(ar)
   
6.              If Len(ar(i, 1)) Then
   
7.                   Set rng = .Columns(1).Find(ar(i, 1))
   
8.                   rng.CurrentRegion.Copy Cells(i, "k")
   
9.              End If
   
10.         Next
    
11.     End With
    
12. End Sub

复制代码

lsc900707

jamesbiz 发表于 2018-6-21 17:47
我通过你的代码，又增加了另外一段代码进来，先运行从《汇总表》的条目”获取单价列表“到分析表，再运行 ...

附件供参考：

jamesbiz

lsc900707 发表于 2018-6-21 19:03
附件供参考：

可以了，非常感谢您的热心帮忙！