Question

我无法弄清楚如何在循环中进行循环。

如果纸张1上的单词列表与第2页第1列中的20个所需关键词中的任何一个匹配，则需要复制和粘贴这些单词列表。

然后需要将其复制粘贴到工作表3.然后我需要查看工作表1中的相同列表，如果它们与工作表2第2列中的任何关键字匹配，则将它们复制粘贴到工作表4上。我可以使用任何帮助。

Answer 1

单循环

Dim i As Integer
For i = 1 To 6
    Cells(i, 1).Value = 100
Next i

双循环

Dim i As Integer, 
Dim j As Integer

For i = 1 To 6
    For j = 1 To 2
        Cells(i, j).Value = 100
    Next j
Next i

祝你好运

Answer 2

你不需要2个循环（这很慢）

使用以下内容循环遍历工作表1测试中的值：

If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A20"), Range("A1")) > 0 Then
    'Your copy and paste code goes here for sheet 3
ElseIf WorksheetFunction.CountIf(Sheets("Sheet2").Range("B1:B20"), Range("A1")) > 0 Then
    'Your copy and paste code goes here for sheet 4
End If

如何在循环vba中进行循环

2 个答案: