时间戳

首页 > 解决方案 > VBA，空单元格在最后一行

excel - VBA，空单元格在最后一行

问题描述

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

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

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

https://ibb.co/kjdWi0

如果虚拟数据

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

有用。

为什么这样做？

标签： excelvba

解决方案

Range.End(xlDown)相当于按Ctrl+↓</kbd>.

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

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

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

推荐阅读