如何使用Like函数VBA？

Question

我是 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

如果产品位于初始文本单元格中，则复制并粘贴数据

Answer 1

无法将一个范围显式设置为另一个范围。使用像这样的

Copy

方法

Worksheets("Worksheets").Rows(i).Copy Worksheets("Aggregate Table").Rows(Col)