我是 VBA 新手,请您帮我完成这个循环。这是一个简单的复制和粘贴,带有 if。
Sub reverse_convertible()
Dim LastRow As Long
Dim i As Integer
Dim Col As Integer
For Col = 3 To 20
For i = 1 To 20
If Worksheets("Worksheets").Range("C" & i) Like "*Products*" And Not IsEmpty(Range("A" & i)) Then
Worksheets("Aggregate Table").Rows(Col) = Worksheets("Worksheets").Rows(i)
End If
Next i
Next Col
Application.CutCopyMode = False
End Sub
如果产品位于初始文本单元格中,则复制并粘贴数据
无法将一个范围显式设置为另一个范围。使用像这样的
Copy
方法
Worksheets("Worksheets").Rows(i).Copy Worksheets("Aggregate Table").Rows(Col)