excel - 将原始数据复制到目标工作表的特定单元格中

Question

我在同一个工作簿中有两个工作表，即 sheet1(“rawdata”)和 sheet2(“Overview”)。

我将下载的数据复制到 sheet1(“原始数据”)中。这里的行数不同，但标题/列总是相同的。在此之后，我需要将特定单元格复制到另一个工作表中。

以下是我正在考虑的“规则”:

1) 始终将原始数据表 E9、W9、X9 和 Y9 中的单元格复制到目标表中的特定单元格中。我有这样的事情(有效):

Worksheets("overview").Range("X10").Value = Worksheets("rawdata").Range("E9").Value

2) 始终复制最后一行 E 列中的值。但是，最后一行从 rawdata 到 rawdata 不同，而列 (E) 保持不变。我试过这样的事情:(不工作)

....= Worksheets("rawdata").Range("E1").End(xlDown).Value

3)脚本应该链接到按钮，当我再次单击按钮以插入工作表 rawdata 中的数据时，数据应插入到工作表概述的下一个(下一个)列中。

Answer 1

假设 E 列总是有数据。在这种情况下应该是真的。

对不起，试图简化并打破它。

LastRow_WithDataInColumnE = Worksheets("rawdata").Range("E" & .Rows.Count).End(xlUp).Row

应该

With Worksheets("rawdata")
    LastRow_WithDataInColumnE = .Range("E" & .Rows.Count).End(xlUp).Row
End With

现在 .Rows.Count 应该引用 Worksheets("rawdata")

Worksheets("overview").Range("X10").Value = Worksheets("rawdata").Range("E" & .Rows.Count).End(xlUp).Row.Value

应该

With Worksheets("rawdata")
    Worksheets("overview").Range("X10").Value = .Range("E" & .Rows.Count).End(xlUp).Row.Value
End With

这里有讨论 Error in finding last used cell in VBA .为 E 列中没有数据或行已被删除的情况提出更好的解决方案。