1

我有两张表格，Sheet1 有一堆信息，有 4 个空列，Sheet2 有 4 个列表，每个列表下都有一堆内容。例子：

列表1：A、B、C
列表 2：D、E、F、G
列表 3：H、I、J、K、L、M
列表 4：N

我想用列表的所有组合填充 Sheet1 中的空列，并为生成的每个组合复制原始 Sheet1 内容。示例：（只是一个大概的想法，没有特定的顺序）

内容XYZ|(空)|(空)|(空)|(空)
内容XYZ|A|(空)|(空)|(空)
内容XYZ|B|(空)|(空)|(空)
...
ContentXYZ|(empty)|D|(empty)|(empty)
...
ContentXYZ|(empty)|(empty)|(empty)|N
...
ContentXYZ|B|F|(empty)|(empty)
。 ..
内容XYZ|(空)|G|(空)|N
...
内容XYZ|(空)|E|K|N
...
内容XYZ|C|G|M|N

我已经完成了复制部分并被困在组合部分。这是我到目前为止所拥有的，如果有人可以帮助我完成其余的工作，请提前感谢！

Sub DupSubGroup()

    b = 1
    d = 1
    f = 1
    h = 1

    Do

        Sheets(1).Activate
        Sheets(1).Range("A1:F1").Copy
        erow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        ActiveSheet.Paste Destination:=Sheets(1).Rows(erow)

    ...

    Loop While b <= Sheet2.Columns("B:B").SpecialCells(xlVisible).Rows.Count And d <=    Sheet2.Columns("D:D").SpecialCells(xlVisible).Rows.Count And f <= Sheet2.Columns("F:F").SpecialCells(xlVisible).Rows.Count And h <= Sheet2.Columns("H:H").SpecialCells(xlVisible).Rows.Count
4

1 回答 1

0

如果您正在寻找一个创建所有排列的循环，这里是一个示例：

Sub Test()
  Dim List1 As Variant, List2 As Variant, List3 As Variant
  List1 = Array("A", "B", "C", "D")
  List2 = Array(1, 2, 3)
  List3 = Array(True, False)

  Dim I1 As Integer, I2 As Integer, I3 As Integer, R As Integer
  R = 1
  For I1 = 0 To UBound(List1)
    For I2 = 0 To UBound(List2)
      For I3 = 0 To UBound(List3)
        Cells(R, 1) = List1(I1)
        Cells(R, 2) = List2(I2)
        Cells(R, 3) = List3(I3)
        R = R + 1
      Next I3
    Next I2
  Next I1
End Sub
于 2013-01-06T16:43:39.907 回答