如果同一行中的不同单元格包含文本，则将单元格复制到另一张工作表答案

【问题标题】：copy cell to another sheet if a different cell in the same row contains text如果同一行中的不同单元格包含文本，则将单元格复制到另一张工作表
【发布时间】：2020-07-07 09:34:07
【问题描述】：

我正在尝试构建一个交互式工作表，用于跟踪非营利组织中各种资助者的状态。如果同一行中 E 列的值 =“funded”，我需要构建一个宏，将 A 列的值复制到不同的工作表中。

目前我可以复制整行，但我只需要A列的值

这是我在类似宏上使用的代码，但用于不同的工作表。

Option Compare Text

Sub copyToSheet()

Dim Cell As Range

With Sheets(1)
    For Each Cell In .Range("E1:E" & .Cells(.rows.Count, "E").End(xlUp).row)
        If Cell.Value = "Upcoming" Then
            .rows(Cell.row).Copy Destination:=Sheets(2).rows(Cell.row)
        End If
    Next Cell
End With

Call deleteEmpties
End Sub

当我需要将整行复制到另一个工作表时，这很有效，但现在我只需要将某些列的值复制到新工作表，同时仍针对 E 列中的值进行测试

【问题讨论】：

标签： excel vba

【解决方案1】：

例如：

If Cell.Value = "Upcoming" Then
    Cell.entirerow.columns("A").Copy Destination:=Sheets(2).Cells(Cell.row, "A")
End If

【讨论】：