加载宏无法运行，必须把代码拷贝到当前sheet1工程里面才行

sunxine

借用论坛的一段代码，实现了我想要的功能——合并相同行并把指定列的数据相加

1. Sub hebing()
   
2.     Dim d, Arr, Brr, RowNum, ColNum
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     RowNum = Sheet1.Range("a65536").End(xlUp).Row
   
5.     ColNum = Sheet1.Range("Z1").End(xlToLeft).Column
   
6.     Arr = Sheet1.Range("A1:J" & ColNum)
   
7.     ReDim Brr(1 To RowNum, 1 To ColNum)
   
8.     For i = 2 To UBound(Arr)
   
9.         s = Arr(i, 1) & Arr(i, 2) & Arr(i, 3) & Arr(i, 4) & Arr(i, 5) & Arr(i, 7) & Arr(i, 8) & Arr(i, 9) & Arr(i, 10)
   
10.         If d(s) = "" Then
    
11.             m = m + 1
    
12.             d(s) = m
    
13.             For J = 1 To UBound(Arr, 2)
    
14.                 Brr(m, J) = Arr(i, J)
    
15.             Next
    
16.         Else
    
17.             Brr(d(s), 6) = CLng(Brr(d(s), 6)) + CLng(Arr(i, 6))
    
18.         End If
    
19.     Next
    
20.     Sheet3.[A2:L1000] = ""
    
21.     Sheet3.Columns("A:E").NumberFormatLocal = "@"
    
22.     Sheet3.[A2].Resize(m, UBound(Brr, 2)) = Brr
    
23. End Sub
    

复制代码

不过在把这个宏制作成加载宏以后，运行宏并没有反应，必须把这段代码写进当前sheet1工程里面才可以

NG

OK

求各路大神指点迷津，不甚感激！

yjm0809

我分析原因是你模板中用的是sheet3为合并后，但你实际用的过程中，估计sheet2为合并后，你程序中可以修改    sheet1.修改为sheets("合并前").    sheet3.修改为sheets("合并后").

sunxine

不是这个原因，我对比过的，用的是一样的也不行。
如果一个是sheet2，一个是sheet3的话，运行会提示对象错误。

lsdongjh

不要出现这种 具体的代码名：Sheet3   
建议改为ActiveSheet之类的

lsdongjh

针对你的情况，建议改为 ActiveWorkbook.Sheets ("合并前")、ActiveWorkbook.Sheets ("合并后")之类的

sunxine

谢谢楼上的建议，我想也是这样的。之前弄过Solidworks的二次开发，道理应该是一样的，要自动获取当前工作簿，只是才接触excel的vba，对于其api还不熟，最坑爹是vba的帮助不知道为何不能用了。