怎么把sheet2的数据，复制到相对应sheet1对应的区域内

地瓜1024

想用vba实现，请大神求教。

活在理想的世界

1. Sub d()
   
2. k = Sheet2.Range("a1048576").End(3).Row
   
3. x = Sheet1.Range("a1048576").End(3).Row
   
4. For i = 2 To k
   
5.     For j = 2 To x
   
6.         If Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) = Sheet1.Cells(j, 1) & Sheet1.Cells(j, 2) Then
   
7.             Sheet1.Cells(j, 3) = Sheet2.Cells(i, 3)
   
8.             Sheet1.Cells(j, 4) = Sheet2.Cells(i, 4)
   
9.             Sheet1.Cells(j, 5) = Sheet2.Cells(i, 5)
   
10.             Sheet1.Cells(j, 6) = Sheet2.Cells(i, 6)
    
11.         End If
    
12.     Next
    
13. Next
    
14. End Sub

复制代码

活在理想的世界

1. Sub d()
   
2. Dim arr(), brr()
   
3. arr = Sheet2.Range("a1").CurrentRegion: brr = Sheet1.Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 2 To UBound(brr)
   
6.         If arr(i, 1) & arr(i, 2) = brr(j, 1) & brr(j, 2) Then
   
7.             For c = 3 To 6
   
8.                 brr(j, c) = arr(i, c)
   
9.             Next
   
10.         End If
    
11.     Next
    
12. Next
    
13. Sheet1.Range("a1").CurrentRegion = brr
    
14. End Sub

复制代码

地瓜1024

活在理想的世界 发表于 2018-1-24 16:02

谢谢大佬，么么哒

活在理想的世界

地瓜1024 发表于 2018-1-24 16:20
谢谢大佬，么么哒

你是妹子啊？

如果是妹子，那么“么么哒”是可爱。

如果是汉子，那么“么么哒”是恶心。

地瓜1024

活在理想的世界 发表于 2018-1-24 16:02

大佬不好意思，你能在帮我个忙么，我给你发个文件，我想用vba实现，但是我自己不会调，我的原表是这样的

地瓜1024

活在理想的世界 发表于 2018-1-24 16:02

能不能加个qq什么的，谢谢大佬

地瓜1024

活在理想的世界 发表于 2018-1-24 16:42
你是妹子啊？

如果是妹子，那么“么么哒”是可爱。

妹纸啊，能不能加个qq，我不会调

地瓜1024

地瓜1024 发表于 2018-1-24 17:13
大佬不好意思，你能在帮我个忙么，我给你发个文件，我想用vba实现，但是我自己不会调，我的原表是这样的

大神大神大神

活在理想的世界

地瓜1024 发表于 2018-1-24 17:13
大佬不好意思，你能在帮我个忙么，我给你发个文件，我想用vba实现，但是我自己不会调，我的原表是这样的

你应该上传附件，模拟结果。

然后我下载来看看。主要看看麻烦不麻烦。