Question

您好如何在Excel中找到最后一行并将此行复制下来？我喜欢不复制孔行，而是将＃7列复制到＃15。表格的名称为“Forrest”. 我刚刚开始使用VBA，这很令人困惑。

Answer 1

下面的代码应该执行您要查找的任务。小提示：在Excel中，您可以录制宏，然后在VBA空间中检查您的操作如何转换为VBA代码，通常这是学习VBA的良好起点。

Dim lastRowI As Integer
lastRowI = Sheets("Forrest").Cells(Rows.Count, 7).End(xlUp).Row
Sheets("Forrest").Activate
Sheets("Forrest").Range(Cells(lastRowI, 7), Cells(lastRowI, 15)).Select
Selection.Copy
Sheets("Forrest").Range(Cells(lastRowI + 1, 7), Cells(lastRowI + 1, 15)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Exce / VBA：l将最后一行复制到特定列？

1 个答案: