Question

我有3张纸：Form66，Form65和Matching。两种形式都有一个从A9开始的ID列和一个从W9开始的Set列。如果这些ID在我的匹配表中共享相同的Set＃，则我需要对其进行匹配。我随附的示例代码是为我的匹配表编写的，它可以很好地完成这一部分。

我缺少的是如何继续在form66中的W9：W100范围内执行此操作，同时只要值满足If语句，就继续填充我的匹配表。我该怎么办？

Dim row as integer

row = 3
If (Worksheets("Form66").Range("W9").Value = 1) Then    
    Cells(row, 1) = Worksheets("Form66").Range("A9").Value

Answer 1

我认为您正在寻找一个简单的循环。查看下面的代码

Sub foo()
Dim i As Long

Row = 3
For i = 9 To 100
    If Worksheets("Form66").Cells(i, "W").Value = 1 Then
        Cells(Row, i - 8) = Worksheets("Form66").Cells(i, "A").Value
    End If
Next

End Sub

如果需要，您还可以遍历工作表：

For sht = 1 To Sheets.Count
    If Sheets(sht).Name = "Form66" Then
        'some code here
    End If
Next

如何使用VBA浏览不同工作表中的列表

1 个答案: