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

我是VBA的初学者，所以任何一种提示可能对我有帮助。

我在同一个工作簿中有两个工作表，分别是sheet1（“rawdata”）和sheet2（“Overview”）。

每天早上，我将下载的数据复制到sheet1（“rawdata”）中。 这里的行数有所不同，但是标题/列总是相同的。 之后，我需要将特定的单元格复制到另一个工作表中。 这是我正在考虑的“规则”：

1.）我想总是将原始数据表格E9，W9，X9和Y9中的单元格复制到目标表单中的特定单元格

工作表（“overview”）。范围（“X10”）。值=工作表（“rawdata”）。范围（“E9”）。值

2.）我想总是复制列E中的列中的值。 但是，最后一行从原始数据到原始数据不等，而列（E）始终保持不变。 我尝试了这样的事情：

…. =工作表（“rawdata”）。范围（“E1”）。结束（xlDown）。值（不工作:-(）

3.）脚本应该链接到button，当我再次单击button以从工作表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应该参考工作表（“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 

这里有一个讨论在VBA中查找最后使用的单元格的错误 。 对列E中没有数据或行被删除的情况build议更好的解决scheme。