请教VBA技术高手！！！

sinoshon

哎呀，各位都很厉害呀，我这VBA学是250啊！

再次感谢各位高手的指点，谢谢，谢谢！！！

sinoshon

在现在VBA基础上，再升级一下： 把所有A列和B列分别合成的值都排排成一个列（C列），而不是像之前排成C列，D列，E列......

谢谢！

sinoshon

chxw68 发表于 2020-1-11 11:05
详见附件。

麻烦再请教一下，chxw68:
在您的VBA基础上，再升级一下： 把所有A列和B列分别合成的值全部都排排成一个列（C列），而不是像之前排成C列，D列，E列......

小弟谢过啦！

liulang0808

Sub test()
  Dim arr, i, j
  arr = Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
  brr = Range("b1:b" & Cells(Rows.Count, "b").End(xlUp).Row)
  ReDim crr(1 To UBound(arr, 1) * UBound(brr), 1 To 1) As String
  r = 0
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(brr, 1)
        r = r + 1
      crr(r, 1) = arr(i, 1) & Space(1) & brr(j, 1)
    Next
  Next
  [h1].Resize(r) = crr
End Sub
借用了小刀老师的代码，供参考。。。。

chxw68

1. Sub test2()
   
2.   Dim r&, i&
   
3.   Dim arr, brr
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a1:a" & r)
   
9.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
10.     brr = .Range("b1:b" & r)
    
11.     ReDim crr(1 To UBound(arr) * UBound(brr), 1 To 1)
    
12.     For i = 1 To UBound(arr)
    
13.       For j = 1 To UBound(brr)
    
14.         m = m + 1
    
15.         crr(m, 1) = arr(i, 1) & Space(1) & brr(j, 1)
    
16.       Next
    
17.     Next
    
18.     .Range("c1").Resize(UBound(crr), UBound(crr, 2)) = crr
    
19.   End With
    
20. End Sub
    
21. 
    

复制代码

chxw68

修改好了。

sinoshon

厉害，我的哥，谢谢！