那您帮我写个吧?我不会vba,感激不尽!
追答Public Sub S123()
Dim i As Integer, l As Integer, j As Integer
i = 1: l = 1: j = 1
Dim A As String, B As String, C As String
A = "A" & i: B = "B" & l: C = "C" & j
Do While Len(Trim(Range(A))) > 0
Do While Len(Trim(Range(B))) > 0
B = "B" & l: C = "C" & j
Range(C).Value = Range(A).Value & Range(B).Value
l = l + 1: j = j + 1
Loop
i = i + 1: l = 1: j = j - 1
A = "A" & i: B = "B" & l: C = "C" & j
Loop
End Sub
这个程序最后会留一个尾巴,记得删了。