如果 X 列包含值，则将 Y 列值添加到工作表范围

Question

我确信这已经在其他地方得到了回答，但是我需要特定的帮助来开发所需的 VBA 代码。

场景：成员资格数据库（工作表“成员”）包含成员详细信息，包括他们是否“活跃”。

我试图让程序向下看 C 列； 如果单元格包含“活动”，则将相应的 A 列值复制到第二个工作表模板范围“活动成员”。

任何建议将不胜感激。

亲切的问候。

Answer 1

这会将所有活动用户复制到名为Active Members的第二个工作表

Sub copyActive()
Dim counter, RowNo As Long

counter = 1
RowNo = 1

    Do Until Sheets("Members").Cells(counter, 1) = ""
    If UCase(Sheets("Members").Cells(counter, 3)) = "ACTIVE" Then
    Sheets("Active Members").Cells(RowNo, 1) = Sheets("Members").Cells(counter, 1)
    RowNo = RowNo + 1
    counter = counter + 1
    End If
    counter = counter + 1
    Loop

End Sub