源表:
设计:a
数据1
数据2
数据3
数据4
设计A合计
设计:B
数据5
数据6
数据7
设计B的合计
使用新标题的新工作表中的信息排列:
data 1 设计A
data 2 设计A
data 3 设计A
data 4 设计A
data 5 设计B
data 6 设计B
data 7 设计B
设计A合计
设计B的合计
1)如何循环收集一个数组中的Design descriptions和另一个数组中的Design Total?是否需要为这两个数组分配数组0和1?
2)然后根据新的工作表格式进行数组计数以粘贴它们?
有可能吗?
发布于 2018-11-05 10:45:11
你的意思是这样的吗:
Sub Test()
Dim StRows As Variant
Dim EndRows As Variant
Dim aStRow As Variant
Dim aEndRow As Variant
StRows = Array(1, 2, 3, 4, 5)
EndRows = Array(6, 7, 8, 9, 10)
For Each aStRow In StRows
For Each aEndRow In EndRows
Debug.Print aStRow & " - " & aEndRow
Next aEndRow
Next aStRow
End Sub
这将打印到Immediate
窗口中的各个行:
1 - 6, 1 - 7, 1 - 8, 1 - 9, 1 - 10
&然后是2 - 6, 2 - 7, 2 - 8....
每个StRow
都连接到每个aEndRow
。
发布于 2018-11-05 12:53:24
如果start和end具有相同数量的元素,则可以对两者使用相同的循环/相同的控制变量。
Sub LoopRanges()
Dim aStart As Variant
Dim aEnd As Variant
Dim i As Long
Dim rCell As Range
'Start and End have some number of elements
aStart = Array("A1", "B3", "C10", "D1")
aEnd = Array("A10", "B15", "C12", "D20")
With Sheet1
'loop through start, but use the same control variable (i) for both start and end
For i = LBound(aStart) To UBound(aStart)
For Each rCell In .Range(.Range(aStart(i)), .Range(aEnd(i))).Cells
Debug.Print rCell.Address
Next rCell
Next i
End With
End Sub
这可能不是您的确切情况,但希望它足够接近,以具有启发性。我有两个数组-一个用于起始单元格,另一个用于结束单元格。在我的For Next循环中,使用i
作为控制变量,并使用该变量访问aStart
和aEnd
。内部循环只是为要迭代的for Each构建范围。
https://stackoverflow.com/questions/53151973
复制相似问题