macros在Excel表格中的各个列中进行所有可能的数据组合

我是一个完整的新手在macros，并已被赋予一个任务，如果手动完成，可以花费很多时间。 我有一个工作表，其数据如下：

ABC abc,def,ghi,jkl 1,2,3 a1,e3,h5,j8 

我想这是在以下格式。

 abc 1 a1 abc 2 a1 abc 3 a1 abc 1 e3 abc 2 e3 abc 3 h5 

等等来做所有可能的组合。 任何帮助将是伟大的。 谢谢

Answer 1

替代方法

 Private Sub Combinations() Dim arrA() As String, arrB() As String, arrC() As String Dim lngA As Long, lngB As Long, lngC As Long With Sheet1 '(CHANGE SHEET IF REQUIRED) arrA = Split(.Range("A1"), ",") arrB = Split(.Range("B1"), ",") arrC = Split(.Range("C1"), ",") For lngA = LBound(arrA) To UBound(arrA) For lngB = LBound(arrB) To UBound(arrB) For lngC = LBound(arrC) To UBound(arrC) .Range("I" & .Rows.Count).End(xlUp).Offset(1, 0).Value = arrA(lngA) & " " & arrB(lngB) & " " & arrC(lngC) Next lngC Next lngB Next lngA End With End Sub 

Answer 2

该代码将从列A，B和C中获取数据，并给出在E，F和G列中描述的输出。

 Sub combinations() Dim c1() As Variant Dim c2() As Variant Dim c3() As Variant Dim out() As Variant Dim j, k, l, m As Long Dim col1 As Range Dim col2 As Range Dim col3 As Range Dim out1 As Range Set col1 = Range("A1", Range("A1").End(xlDown)) Set col2 = Range("B1", Range("B1").End(xlDown)) Set col3 = Range("C1", Range("C1").End(xlDown)) c1 = col1 c2 = col2 c3 = col3 Set out1 = Range("E2", Range("G2").Offset(UBound(c1) * UBound(c2) * UBound(c3))) out = out1 j = 1 k = 1 l = 1 m = 1 Do While j <= UBound(c1) Do While k <= UBound(c2) Do While l <= UBound(c3) out(m, 1) = c1(j, 1) out(m, 2) = c2(k, 1) out(m, 3) = c3(l, 1) m = m + 1 l = l + 1 Loop l = 1 k = k + 1 Loop k = 1 j = j + 1 Loop out1.Value = out End Sub 

另一方面，如果您的数据在单元格A1，B1和C1中以逗号分隔，则以下代码将以类似的方式工作。

 Sub combinations() Dim c1() As String Dim c2() As String Dim c3() As String Dim out() As Variant Dim j, k, l, m As Long Dim col1 As Range Dim col2 As Range Dim col3 As Range Dim out1 As Range Set col1 = Range("A1") Set col2 = Range("B1") Set col3 = Range("C1") c1 = Split(col1.Value, ",") c2 = Split(col2.Value, ",") c3 = Split(col3.Value, ",") Set out1 = Range("E1", Range("G1").Offset((UBound(c1) + 1) * (UBound(c2) + 1) * (UBound(c3) + 1))) out = out1 j = 0 k = 0 l = 0 m = 1 Do While j <= UBound(c1) Do While k <= UBound(c2) Do While l <= UBound(c3) out(m, 1) = c1(j) out(m, 2) = c2(k) out(m, 3) = c3(l) m = m + 1 l = l + 1 Loop l = 0 k = k + 1 Loop k = 0 j = j + 1 Loop out1.Value = out End Sub