VBA：根据单元格的值将工作表1中的单元格复制到工作表2

Question

使用 VBA，我该怎么做：

仅当单元格 A1（在 Worksheet1 中）的值 =“YES”时，才将 Worksheet1 中的单元格 B1 复制到新的 Worksheet2。

然后对范围 A1:A1000 中的每一行重复此操作（即基于 A2 值 =“YES”的 B2 副本等） - 如果单元格为空白，请检查下一行。

Sub Output()
Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

    Set Source = ActiveWorkbook.Worksheets("worksheet1")
    Set Target = ActiveWorkbook.Worksheets("worksheet2")

    j = 1     ' Start copying to row 1 in target sheet
    For Each c In Source.Range("R2:R1000")   ' Do 1000 rows
        If c = "YES" Then
           Source.Rows(c.Row).Copy Target.Rows(j) /*getting stuck here on trying to copy a cell from column S in worksheet1 to worksheet2
           j = j + 1
        End If
    Next c
End Sub

Answer 1

您只需快速修改即可从复制行更改为单个单元格和位置。我以前是从 c 行的 AG 列复制的。

Sub Output()
Dim c As Range
Dim j As Integer
Dim Source As Worksheet
Dim Target As Worksheet

Set Source = ActiveWorkbook.Worksheets("workshee1")
Set Target = ActiveWorkbook.Worksheets("workshee2")

j = 1     ' Start copying to row 1 in target sheet
    For Each c In Source.Range("R2:R1000")   ' Do 1000 rows
        If c = "YES" Then
            Target.Cells(j, "A").Value = Source.Cells(c.Row, "AG").Value
            j = j + 1
        End If
    Next c
End Sub