请教老师用VBA,把两列的数进行合并，谢谢！

cartel

请教老师用VBA,把两列的数进行合并，谢谢！.zip (9.17 KB, 下载次数: 15)

2024-5-17 23:44 上传

点击文件名下载附件

longwin

附件供参考...

Qs18

Public Sub test()
Dim arr, brr, crr
arr = Range("c1:c" & Cells(Rows.Count, "c").End(xlUp).Row)
brr = Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row)
ReDim crr(1 To 10000, 1 To 1)

For j = 1 To UBound(brr)
    For i = 1 To UBound(arr)
        k = k + 1
        crr(k, 1) = arr(i, 1) & "," & brr(j, 1)
    Next
Next
Range("e1").Resize(k, 1) = crr
End Sub

沈默00

=VSTACK(C1:C10&","&D1,C1:C10&","&D2)

沈默00

沈默00

结果放在K列

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    ReDim ar(3 To 4)
    For i = 3 To 4
        ar(i) = Range(Cells(1, i), Cells(Rows.Count, i).End(xlUp)).Value
    Next i
   
    ReDim br(1 To UBound(ar(3)) * UBound(ar(4)), 0)
    For i = 1 To UBound(ar(4))
        For j = 1 To UBound(ar(3))
            r = r + 1
            br(r, 0) = ar(3)(j, 1) & "," & ar(4)(i, 1)
        Next j
    Next i
   
    [F1].Resize(UBound(br)) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

，，，，，，，，，，

cyq4896

参与一下..