[已解决]请教！用VBA将A表数据导入B表中...。。。

天马

按阿木老师的也改了一个，也可试试看。

1. Sub Test2()
   
2. Dim Rrng As Range
   
3.     Dim Rng As Range
   
4.     Application.Calculation = xlCalculationManual '将计算改为手动
   
5.     Application.ScreenUpdating = False '关闭刷新
   
6.   With Sheet1
   
7.     Set Rrng = .Range(Cells(3, 3), Cells(100, "Q")) '暂定需要导入的数据区域为C3到100行，Q列。
   
8.         For Each Rng In Rrng
   
9.         Rng.Formula = "='" & ThisWorkbook.Path & "\[数据库DATA.xls]" & "Sheet1'!" & Rng.Address
   
10.         Rng = Rng.Value
    
11.         Next
    
12.     End With
    
13.         Application.Calculation = xlCalculationAutomatic
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

80013025

回复 天马 的帖子

谢谢大侠指导，
你的第一种效果速度方面最快，
效果个人感觉最好。

第二种效果还行，只是速度偏慢，如果数据量大，可能会更慢，
谢谢~！！！！！！！！！！！！！！！！！！！！！！！