VBA编写单元格数字合并

VBA编写单元格数字合并

Sub 合并数()
Dim I%, K%
For I = 1 To Range("A65536").End(xlUp).Row * 3
n = Int((I - 1) / 3) + 1
Cells(I, "c") = Cells(n, "a")
Next
For K = 1 To Range("A65536").End(xlUp).Row * 3
M = ((K - 1) Mod 3) + 1
Cells(K, "c") = Cells(K, "c") & Cells(M, "B")
Next
End Sub
试下追问B列不止3行，有几百行，怎么改？追答B列假设有100行，就将
M = ((K - 1) Mod 3) + 1
3修改为 100
试下追问能否自动识别B列的行数，有多少行，它自动合并多少行。追答不知道是不是找一个意思？
Sub 合并数()
Dim I%, K%
x = Range("b65536").End(xlUp).Row
y = Range("a65536").End(xlUp).Row * x
For I = 1 To y
n = Int((I - 1) / x) + 1
Cells(I, "c") = Cells(n, "a")
Next
For K = 1 To Range("A65536").End(xlUp).Row * x

M = ((K - 1) Mod x) + 1
Cells(K, "c") = Cells(K, "c") & Cells(M, "B")
Next
End Sub

这个要双重for循环才可以搞定