[已解决]求助，请老师帮忙修改代码。

zxc2011

求助，请老师帮忙修改代码。
在此谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2011-12-3 20:04

1. Private Sub CommandButton1_Click()
   
2.     Dim arr1, arr2, brr(), I&, N&
   
3.     arr1 = Range("b7:d" & Range("b65536").End(3).Row)
   
4.     arr2 = Range("G7:I" & Range("G65536").End(3).Row)
   
5.     ReDim brr(1 To UBound(arr1) + UBound(arr2), 1 To 3)
   
6.     For I = 1 To UBound(arr1)
   
7.         If arr1(I, 1) <> "" Then
   
8.             N = N + 1
   
9.             brr(N, 1) = arr1(I, 1)
   
10.             brr(N, 2) = arr1(I, 2)
    
11.             brr(N, 3) = arr1(I, 3)
    
12.         End If
    
13.     Next I
    
14.     For I = 1 To UBound(arr2)
    
15.         If arr2(I, 1) <> "" Then
    
16.             N = N + 1
    
17.             brr(N, 1) = arr2(I, 1)
    
18.             brr(N, 2) = arr2(I, 2)
    
19.             brr(N, 3) = arr2(I, 3)
    
20.         End If
    
21.     Next I
    
22.     Range("g7:i100").ClearContents
    
23.     Range("g7").Resize(N, 3) = brr
    
24. End Sub
    

复制代码

跳转到最佳答案楼层

zjdh

1. Private Sub CommandButton1_Click()
   
2.     Dim arr1, arr2, brr(), I&, N&
   
3.     arr1 = Range("b7:d" & Range("b65536").End(3).Row)
   
4.     arr2 = Range("G7:I" & Range("G65536").End(3).Row)
   
5.     ReDim brr(1 To UBound(arr1) + UBound(arr2), 1 To 3)
   
6.     For I = 1 To UBound(arr1)
   
7.         If arr1(I, 1) <> "" Then
   
8.             N = N + 1
   
9.             brr(N, 1) = arr1(I, 1)
   
10.             brr(N, 2) = arr1(I, 2)
    
11.             brr(N, 3) = arr1(I, 3)
    
12.         End If
    
13.     Next I
    
14.     For I = 1 To UBound(arr2)
    
15.         If arr2(I, 1) <> "" Then
    
16.             N = N + 1
    
17.             brr(N, 1) = arr2(I, 1)
    
18.             brr(N, 2) = arr2(I, 2)
    
19.             brr(N, 3) = arr2(I, 3)
    
20.         End If
    
21.     Next I
    
22.     Range("g7:i100").ClearContents
    
23.     Range("g7").Resize(N, 3) = brr
    
24. End Sub
    

复制代码

菜鸟锐

楼上的真厉害！！！！！！！！！！！！

hytsky

不知道楼主搞这个是干嘛用的