从另一个工作簿中提取数据，在工作表中搜索表中的名称，并根据行中的特定数字

Question

请我需要以下代码的帮助：1）从另一个工作簿（工作簿2）的电子表格列中复制数据，电子表格名称位于当前工作簿（工作簿1）的表中。2）相应地将所选数据粘贴到包含电子表格名称的列中。我使用指标 1 和 2 来区分要发布的数据，即 1 表示日期，2 表示数量。3）也许链接中的图片有助于更好地理解。在此处输入图像描述

4）到目前为止，我的代码是：子数据（）

Dim i As Integer
Dim DName As String
DName = Workbooks("Workbook1").Sheets("ACCT").Range(Cells(10, i))
For i = 3 To 250
    If Workbooks("Workbook1").Sheets("ACCT").Cells(3, i) = "1" Then
        Workbooks("Workbook2").Activate
        Sheets(DName).Range("A52:A500").Copy
        Workbooks("Workbook1").Activate
        Sheets("ACCT").Range(Cells(14, i)).PasteSpecial Paste:=xlPasteValues
    End If
Next i

结束子

Answer 1

在这里，我认为这就是您要查找的内容：

Sub getInfo()
Dim cel As Range, nameRow As Range, lastCell As Variant
lastCell = Cells(10, Columns.Count).End(xlToLeft).Address
Set nameRow = Range("A10:" & lastCell)
For Each cel In nameRow
    If cel.Value <> "Tab" And cel.Value <> "" Then
        Workbooks("Workbook2").Activate
        Sheets(cel.Value).Range("A52:A500").Copy
        Workbooks("Workbook1").Activate
        Sheets("ACCT").Cells(14, cel.Column).PasteSpecial Paste:=xlPasteValues
    End If
Next cel
End Sub