在excel中如何实现第一列和第二列排列组合，输出到第三列。（假设每一列的字符是任意字符）
在C1单元格输入以下公式，然后向下填充公式
=OFFSET(A$1,INT((ROW(A1)-1)/COUNTA(B:B)),)&OFFSET(B$1,MOD(ROW(A1)-1,COUNTA(B:B)),)
详见附图附件
温馨提示：答案为网友推荐，仅供参考
第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执行。本回答被网友采纳
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执行。本回答被网友采纳
第2个回答 2014-11-19
亲：
在C1输入=A1&B1下拉追问
在C1输入=A1&B1下拉追问
排列组合啊，你这简单的字符相加，我也会
追答你的问题不就是这样吗？？？？？？？要不给图看看（排列组合谁都是这样理解了）
第3个回答 2014-11-19
C1
=A1&B1追问
=A1&B1追问
排列组合啊，你这简单的字符相加，我也会
