如果两列之外的单元格包含特定文本，如何从不同工作表中的单元格中提取文本？答案

【问题标题】：How do I pull text from a cell in a different sheet if the cell two columns away contains specific text?如果两列之外的单元格包含特定文本，如何从不同工作表中的单元格中提取文本？
【发布时间】：2017-03-09 02:42:42
【问题描述】：

所以基本上我要做的是在电子表格中为我在单独的电子表格中创建的出勤列表制作名称标签。我在一列中有他们的全名，两列上我有他们被分配的颜色。对于名称标签的每种颜色，我都有单独的电子表格。

我希望将公式写在单独的电子表格中，我们称之为“Green 20”。所以 Green 20 会有多个单元格，其中包含执行以下操作的公式：

检查电子表格中D6:D100之间的单元格中是否包含单词“Pink”
如果单元格中有“粉色”，我希望公式查看“粉色”所在的行并打印出单元格 B？（？意思是任何一行）包含与会者的姓名。

所以本质上，公式必须从单独的电子表格中获取数据，检查 D 列以获取包含颜色的特定文本，如果文本位于列中的一个单元格中，则需要检查文本所在的行和打印出与颜色所在行对应的 B 列中的文本（名字和姓氏）。

【问题讨论】：

用 MATCH 查看 INDEX 以找到行。
你好戴安娜，欢迎来到这个网站。我们喜欢在问题和答案中保持细节，所以我继续精简你的问题。请随时再次编辑。

标签： excel

【解决方案1】：

所以我实际上继续和我的一位同事一起编写了一个宏，这就是它最终的样子：

公共子 NameTags()

' NameTags 宏 ' 3 月 20 日

调暗为范围设置 Rng = Range("$B$5:$E$100")

Dim 行数，colselect As Integer 行数 = 1 colselect = 2

Sheets("March 20, 2017").Range("$B$4:$E$100").AutoFilter Field:=4, Criteria1:="Green"


For Each Row In Rng.Rows
    'MsgBox Row.Row
    If Cells(Row.Row, 2).EntireRow.Hidden = False Then

        If Cells(Row.Row, 2).Value <> "" Then
            copystring = Cells(Row.Row, 2).Value & " " & Cells(Row.Row, 3).Value
            Sheets("Green 20").Cells(rowcount, colselect) = copystring

            Sheets("Green 20").Activate
            Cells(rowcount, colselect).Select
            Set mergecellrng = Cells(rowcount, colselect)
            Set mergecellrng2 = mergecellrng.Offset(0, 3)
            Range(mergecellrng, mergecellrng2).Merge
            mergecellrng.Font.Name = "Segoe UI"
            mergecellrng.Font.Size = 22
            mergecellrng.HorizontalAlignment = xlCenter
            mergecellrng.VerticalAlignment = xlCenter

            If colselect = 8 Then
                rowcount = rowcount + 7
            End If
            Select Case colselect
                Case 2
                    colselect = 8
                Case 8
                    colselect = 2
            End Select
        End If
    End If
    Sheets("March 20, 2017").Activate
Next

每种颜色都会重复

【讨论】：