vba - 如何将工作表(选项卡)名称与单独工作表中的范围匹配并将特定文本返回到每个工作表

Question

我有一个包含多张工作表的工作簿。一张表有 2 列数据。该表的标题为“Notes”，而其余表的标题与“Notes”表的 A1:A6 范围内输入的值相匹配。 B 列包含必须在 A 列的每个相应工作表上的注释。

例如，如果工作簿中的第二张表标题为“Gpu 制造”，并且“Notes”表的 A1 中的值也是“Gpu 制造”，那么我希望在“Notes”的单元格 B1 中输入值“Gpu 制造”表的单元格 F1。

接下来，如果工作簿中的第三张表标题为“Tesla GPUs”，并且“Notes”表的 A2 中的值也是“Tesla GPUs”，那么我希望将“Notes”的单元格 B2 中的值输入到单元格中“Tesla GPUs”表的 F1。

冲洗并重复以根据名称或标题将数据从“注释”表中提取到其他表中。

这是我到目前为止所拥有的:

Sub example() 

    Dim wkSht As Worksheet

    For Each wkSht In Sheets

        For Each Cell In Sheets("Reporting").Range("B2:B200")

            If Cell.Value = wkSht.Name Then

                wkSht.Range("D15").Copy Destination:=Cell.Offset(0,1)

            End If

        Next Cell

    Next wkSht

End Sub

为布鲁斯韦恩编辑:

这是我的 VBA 应用程序显示的内容:

Answer 1

你首先写道:

“例如，如果 WB 中的第二张表标题为“Gpu 制造”，并且“Notes”表的 A1 中的值也是“Gpu 制造”，那么我希望输入“Notes”单元格 B1 中的值进入“Gpu 制造”表的单元格 F1。

它从中派生出以下代码:

Sub Main()
    Dim cell As Range

    For Each cell In Worksheets("Notes").Range("A1:A6")
        Worksheets(cell.Value).Range("F1") = cell.Offset(,1)
    Next cell
End Sub

然后你在对 BruceWayne 的评论中写道:

“但是它仍然没有返回每张纸的 F2 单元格中的任何内容”

哪个更改(从“F1”到“F2”)工作表中的目标单元格，而不是“Notes”，将其值从“B”列粘贴到哪里

如果后者是真实情况，那么只需替换:

Worksheets(cell.Value).Range("F1") = cell.Offset(,1)

和:

Worksheets(cell.Value).Range("F2") = cell.Offset(,1)

最后，您在 BruceWayne 的另一条评论中写道:

“这只是一个测试工作簿，以获得一个可以工作的宏，因为实际上，我需要在一个有 700 多张工作表的工作簿上使用它来匹配一列，并从第二列返回该工作表的特定数据”笔记“表 – 威廉克劳福德 1 小时前”

这是完全不同的事情

我的代码在这里回答了你原来的问题

如果您的需求发生变化而不是发布另一个问题