如果 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