Excel 复印及；粘贴

目标：我正在尝试根据查找结果（即区域）复制、查找和粘贴数据

问题：当我定义数据粘贴的位置时，我得到了期望的输出。但这并不是宏应该做的。假设它查找该区域名称，然后将数据粘贴到适当的标题下，依此类推

以下是我到目前为止所写的内容：

Sub DataPasting()

ApplicationUpdating = False

Sheets("Sheet1").Range("I2:J2").Copy        'copy and pasting the data set from Sheet1
Sheets("Stories & Topics").Select

    Dim RegionColumn As Long
    Dim erow As String


    RegionColumn = Application.WorksheetFunction.Match(Sheets("Raw").Range("H1"), Sheets("Stories & Topics").Range("A1:Z1"), False)

    erow = ThisWorkbook.Worksheets("Stories & Topics").Cells(Rows.Count, "B").End(xlUp).Row

     ThisWorkbook.Worksheets("Stories & Topics").Paste (ThisWorkbook.Worksheets("Stories & Topics").Range("B" & erow + 1))

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False


ApplicationUpdating = True


End Sub

注:

Sheet1=从中复制数据的图纸 故事和主题=必须粘贴数据的目标工作表

我也试过Vlookup和Match，但没用

---

谢谢

很难从您的代码中准确地判断您在做什么，但类似的操作应该可以：

Sub DataPasting()

    Dim RegionColumn 'variant
    Dim erow As Long
    Dim shtRaw As Worksheet, shtSaT As Worksheet, shtOne As Worksheet

    Set shtRaw = ThisWorkbook.Sheets("Raw")
    Set shtSaT = ThisWorkbook.Sheets("Stories & Topics")
    Set shtOne = ThisWorkbook.Sheets("Sheet1")

    ApplicationUpdating = False

    RegionColumn = Application.Match(shtRaw.Range("H1").Value, _
                                     shtSaT.Range("A1:Z1"), 0)

    If Not IsError(RegionColumn) Then

        erow = shtSaT.Cells(Rows.Count, "B").End(xlUp).Row

        shtSaT.Cells(erow, RegionColumn).Resize(1, 2).Value = shtOne.Range("I2:J2").Value

    End If

    ApplicationUpdating = True


End Sub

---

Selection.PasteSpecial将始终将结果粘贴到当前选择，但我看不到任何结果。select Before paste Special是在目标工作表中粘贴一个数值，因为该值是通过公式获得的，并且会出现引用错误。即使我移动了Paste Special，输出仍然没有粘贴到正确的标题下，这是因为我们已经定义它需要粘贴到“B”中（如果您选中下面的“erow”和粘贴代码）我们希望的位置是基于正确的地区，已选定的，它应该是随机的。我附上一个主表截图。也许这对你有帮助。这就是选择的方式=日期>区域（英国和欧洲、中东和非洲/亚太地区）>标记（财务/销售）>区域（亚太地区）营销数量总和-所有这些都发生在不同的表格中，然后在该表格中搜索区域（亚太地区）>粘贴主题（GHI）>总和（9）>标记（营销）。表格1和“原始”表格是同一张表格吗？为什么

erow

是字符串？\uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu显示其他纸张的图片。最好将链接附加到示例工作簿。就像谷歌硬盘一样。不要使用必须有人注册才能打开文件的链接。以下是示例工作簿的链接。嗨，蒂姆，你可以从谷歌硬盘链接下载这个文件。这就是我试图实现的=选择日期、区域、标记并运行ExtractData2宏。您将在表1中看到结果。张贴这篇文章，我试图将这些数据粘贴到正确的区域下，结果显示在Sheet1中。希望这能帮上忙。有人能帮上忙吗？好吧，我想我得结束这篇文章了，因为似乎没有人能回答这个问题。谢谢