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

Question

我在同一个工作簿中有两个工作表，即 sheet1（“原始数据”）和 sheet2（“概述”）。

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

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

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

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

2) 始终复制最后一行 E 列中的值。 但是，最后一行因原始数据而异，而列 (E) 保持不变。 我试过这样的事情：（不工作）

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

3）脚本应该链接到按钮，当我再次单击按钮从工作表原始数据中插入数据时，数据应该插入到工作表概述的下一（以下）列中。

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 find last used cell in VBA 。 对于列 E 中没有数据或行已被删除的情况，建议更好的解决方案。

Answer 2

您可以执行以下操作来获取 E 列中的最后一个数据范围：

Public Function FindLastColumnECellAvailable()
    FindLastColumnECellAvailable = "E" & WorksheetFunction.CountA(Range("E:E"))
End Function

然后你会有这个：

最后只读取单元格值：

Range(FindLastColumnECellAvailable).Value

你好

对不起，“提前”道歉，我刚看了日期，希望这对你或其他人有帮助，这是我的第二天