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

Question

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

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

我正在努力使程序向下看C列;如果单元格包含“ACTIVE”，则将相应的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