第1个回答 2014-11-19
Sub aaa()
Dim i As Integer, j As Integer, arr, arr1, arr2(), K
arr = Range("a1", Cells(Rows.Count, 1).End(3))
arr1 = Range("b1", Cells(Rows.Count, 2).End(3))
ReDim arr2(1 To UBound(arr) * UBound(arr1), 1 To 1)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr1)
K = K + 1
arr2(K, 1) = arr(i, 1) & arr1(j, 1)
Next j
Next i
Cells(1, 3).Resize(K, 1) = arr2
End Sub
按ALT+F11, 插入 ,模块 ,把上面的代码粘贴进去,按F5执行。本回答被网友采纳