Excel VBA根据不同工作表中的动态单元格值选择并复制行数

Question

在工作表1中的单元格C3中，数值不断变化。我希望基于工作表1中的单元格值C3选择工作表Sheet2中的行数。例如，工作表Sheet2具有100行和7列。在sheet1中，如果C2 = X并且C3 = 5，我希望vba循环通过sheet2的列A以找到X的第一个匹配单元格，然后从第一个匹配中选择C3行数，并将其复制到sheet3。 / p>

                  Sheet1   Sheet2  Sheet3 (final result)
                  C2=X     A1=a    A3 row
                  C3=5     A2=b    A4 row
                           A3=X    A5 row
                           A4=X    A6 row
                           A5=X    A7 row
                           A6=X
                           A7=X
                           A8=X

这是我正在使用的代码：

Private Sub CommandButton1_Click()
    Worksheets("Sheet2").Activate
    a = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("sheet1").Activate
    b = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To a
        For j = 2 To b
            If Worksheets("Sheet2").Cells(i, 1).Value = Worksheets("Sheet1").Cells(j, 1).Value Then
                If Worksheets("Sheet1").Cells(j, 3).Value > Worksheets("Sheet1").Cells(j, 5).Value Then
                    'THE CODE I NEED HELP WITH
                End If
            End If
        Next j
    Next i
End Sub

Answer 1

类似的事情应该起作用！

Public Sub RunProgram()
Dim WSSheet1                                            As Worksheet
Dim WSSheet2                                            As Worksheet
Dim WSSheet3                                            As Worksheet
Dim ValueToFind                                         As String
Dim NumberRows                                          As Long
Dim LastRowToCheck                                      As Long
Dim CellIndex                                           As Range
Dim RngStart                                            As Long
Dim RngEnd                                              As Long

Set WSSheet1 = Sheets("Sheet1")

ValueToFind = WSSheet1.Range("C2")
NumberRows = WSSheet1.Range("C3")

Set WSSheet2 = Sheets("Sheet2")

LastRowToCheck = WSSheet2.Cells(WSSheet2.Rows.Count, 1).End(xlUp).Row

For Each CellIndex In WSSheet2.Range("A1:A" & LastRowToCheck)
    If CellIndex.Value = ValueToFind Then
        RngStart = CellIndex.Row
        RngEnd = RngStart + NumberRows
        Exit For
    End If
Next CellIndex

Set WSSheet3 = Sheets("Sheet3")

WSSheet3.Range("A1:A" & NumberRows).Value = WSSheet2.Range("A" & RngStart & ":A" & RngEnd).Value

End Sub