VBA，空单元格在最后一行答案

【问题标题】：VBA, empty cell is at last rowVBA，空单元格在最后一行
【发布时间】：2019-03-20 04:21:45
【问题描述】：

在 VBA Excel 宏中，我从另一个工作表复制行，选择另一个工作表，然后在粘贴之前尝试找到下一个打开的单元格。

Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

页面有第一行的列标题，然后 find 将它们传递到最后一行？？？

如果是虚拟数据

放在第二行，或者如果已经存在数据，

它有效。

为什么要这样做？

【问题讨论】：

标签： excel vba

【解决方案1】：

Range.End(xlDown) 相当于按 Ctrl + ↓。

自行测试 - 如果您在第 1 行中只有一个标题，那么您将跳转到 Worksheet 中的最后一行。如果标题下方有数据，您将移至该行。

使用Range.End(xlUp) 从Worksheet 的最后一行移动上来查找下一个可用行 - 如下所示：

With Sheet1
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With

【讨论】：

【解决方案2】：

站在你的数据布局中，你可以使用：

Cells(WorksheetFunction.CountA(Columns(1)) + 1, 1).PasteSpecial Paste:=xlPasteValues

或者，使用明确的工作表引用（推荐）：

With Worksheets("mySheetName")
    .Cells(WorksheetFunction.CountA(.Columns(1)) + 1, 1).PasteSpecial Paste:=xlPasteValues
End With

【讨论】：