请教老师，用VBA把两列的数合并到另一列,谢谢！

cartel

请教老师，用VBA把两列的数合并到另一列,谢谢！.zip (8.39 KB, 下载次数: 24)

2023-2-5 10:32 上传

点击文件名下载附件

shiruiqiang

明天会更好zj

Sub tt()
Dim arr, brr, crr(1 To 100000, 1 To 1)
Dim i, j, k, x, y
Columns("aq:aq").ClearContents

i = Cells(65536, "ap").End(3).Row
j = Cells(65536, "at").End(3).Row
arr = Range("ap1:ap" & i)
brr = Range("at1:at" & j)
For x = 1 To UBound(arr)
    For y = 1 To UBound(brr)
        k = k + 1
        crr(k, 1) = arr(x, 1) & "," & brr(y, 1)
    Next
Next
[aq1].Resize(k) = crr
End Sub

cartel

shiruiqiang 发表于 2023-2-5 10:39

shiruiqiang 你好！
感谢回复！
能不能做附件发上来，

shiruiqiang

一共11句话，你抄一下吧，加深记忆。个人觉得来论坛是学习的

cartel

shiruiqiang 发表于 2023-2-5 10:52
一共11句话，你抄一下吧，加深记忆。个人觉得来论坛是学习的

如果AP的前面列也有数，它就会显示最前面列的数，
不管AP前面有列有没有数，只能显示AP的数
请帮再调下，谢谢！

shiruiqiang

cartel 发表于 2023-2-5 11:30
如果AP的前面列也有数，它就会显示最前面列的数，
不管AP前面有列有没有数，只能显示AP的数
请帮再调下 ...

你把arr和brr定死在ap和at列，arr=range("ap1:ap1000")这样

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, vResult, i&, j&, r&
   
    ar = Range("AP1", Cells(Rows.Count, "AP").End(3))
    br = Range("AT1", Cells(Rows.Count, "AT").End(3))
    ReDim vResult(1 To UBound(ar) * UBound(br))
   
    For i = 1 To UBound(br)
       For j = 1 To UBound(ar)
          r = r + 1
          vResult(r) = ar(j, 1) & "," & br(i, 1)
       Next j
    Next i
   
    Columns("AQ").Clear
    [AQ1].Resize(UBound(vResult)) = Application.Transpose(vResult)
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

dcanoe

很多经典代码可以复制下来平时使用，