[已解决]EXCEL批量合并

zjdh

M列的数字是加到序号4，还是清除？

weishikey

看了头就大，还得努力啊，何时才能看得懂这些外国喽的字。{:181:}

福瑞安

zjdh 发表于 2012-8-13 10:33
M列的数字是加到序号4，还是清除？

变为0就可以,和前面一样!!

zjdh

16楼已修改                     

福瑞安

zjdh 发表于 2012-8-14 09:22

高手啊,还要麻烦一下啊,按你的代码出现新问题,因为我的123456序号是用IF表示为不同的东西(见附件),现在用的代码序号6变为都变为4,6没有为0,后面批量的另外的表,序号2都被改为4了，我的序号有多种排列方式。

zjdh

1. Sub Macro1()
   
2.     Dim filearr As Variant, j As Integer
   
3.     Dim F As Integer, i As Integer, sh As Worksheet, ARR
   
4.     ChDir ThisWorkbook.Path
   
5.     filearr = Application.GetOpenFilename(filefilter:="Excel文件,*.xls", MultiSelect:=True)
   
6.     If IsArray(filearr) = False Then Exit Sub
   
7.     For F = 1 To UBound(filearr)
   
8.         With Workbooks.Open(filearr(F))
   
9.             Set sh = .Sheets("Sheet1")
   
10.             If Not sh Is Nothing Then
    
11.                 ARR = sh.Range("J18:M23")
    
12.                 For i = 1 To UBound(ARR)
    
13.                     j = 0
    
14.                     If ARR(i, 1) = 6 Then
    
15.                         For j = 1 To UBound(ARR)
    
16.                             If ARR(j, 1) = 4 Then
    
17.                                 ARR(j, 2) = ARR(j, 2) + ARR(i, 2)
    
18.                                 ARR(i, 1) = 0
    
19.                                 ARR(i, 2) = 0
    
20.                                 ARR(i, 4) = 0
    
21.                                 Exit For
    
22.                             End If
    
23.                         Next
    
24.                     End If
    
25.                     If j > UBound(ARR) Then ARR(i, 1) = 4
    
26.                 Next
    
27.             sh.Range("J18:M23") = ARR
    
28.             .Close True
    
29.             End If
    
30.         End With
    
31.     Next
    
32. End Sub
    

复制代码

福瑞安

zjdh 发表于 2012-8-16 07:58

非常感谢！！