for each代码排错和思路优化，感谢各位大神

suixin0529

感谢各位大神，简单说下我的情况：

压缩包里有两个表格，超名为源文件和目标文件
目标文件是代码所在文件，固定存在电脑中，标题行顺序固定，但项数可能会增加。
源文件定期由网站下载，标题顺序可能会变，项数也可能有增减。
代码想要实现的效果是：将源文件中的内容作为新增内容，导入到目标文件中对应标题列下方，目标文件原有内容保留。
我用了两次for each循环嵌套使用，报错，感觉是在range的表达方式上可能存在错误，但不知错在哪。

求助内容：
请大神帮忙排错，在我的思路上帮忙修改代码。另外还请各位大神可以帮忙写段代码，用更简单有效的方式实现我的需求。

再次感谢各位大神！

dragonthree

用数组加字典呀，这有多慢的

ykcbf1100

新写一个，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.1
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     With sh
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         c = .UsedRange.Columns.Count
   
9.         arr = .[a1].Resize(r, c)
   
10.     End With
    
11.     For j = 1 To UBound(arr, 2)
    
12.         s = arr(1, j)
    
13.         d(s) = ""
    
14.     Next
    
15.     p = ThisWorkbook.Path
    
16.     f = p & "\源文件.xls"
    
17.     Set wb = Workbooks.Open(f, 0)
    
18.     With wb.Sheets("Sheet1")
    
19.         arr = .UsedRange
    
20.         wb.Close False
    
21.     End With
    
22.     For j = 1 To UBound(arr, 2)
    
23.         s = arr(1, j)
    
24.         d(s) = ""
    
25.     Next
    
26.     For Each k In d.keys
    
27.         n = n + 1
    
28.         d(k) = n
    
29.     Next
    
30.     ReDim brr(1 To UBound(arr), 1 To d.Count)
    
31.     For i = 2 To UBound(arr)
    
32.         If arr(i, 1) <> Empty Then
    
33.             m = m + 1
    
34.             For j = 1 To UBound(arr, 2)
    
35.                 s = arr(1, j)
    
36.                 brr(m, d(s)) = arr(i, j)
    
37.             Next
    
38.         End If
    
39.     Next
    
40.     With sh
    
41.         .[a1].Resize(1, d.Count) = d.keys
    
42.         r = .Cells(Rows.Count, 1).End(3).Row
    
43.         .Cells(r + 1, 1).Resize(m, d.Count) = brr
    
44.     End With
    
45.     Set d = Nothing
    
46.     Application.ScreenUpdating = True
    
47.     MsgBox "OK！"
    
48. End Sub
    
49. 
    

复制代码

shiruiqiang

=======数组+字典========

shiruiqiang

规范表格还是sql语句简洁

ykcbf1100

shiruiqiang 发表于 2024-4-1 19:29
规范表格还是sql语句简洁

应该有15个字段的，分表中有3个新字段

baofa2

shiruiqiang 发表于 2024-4-1 19:29
规范表格还是sql语句简洁

据1楼描述，完全木有问题，泼飞它……

ooluckydog

字典里装数组，方便写回单元格

suixin0529

感谢各位大神帮助，字典、SQL这些我还不会，先留下慢慢学习

另外还是想请各位大神们帮忙排错
麻烦大家给看看，我自己写的代码错在了哪里

再次感谢各位大神