Excel 10 – 写入文本到下一个单元格

我已经在Excel 10中创build了一个macros，所以当我点击一个button时，选定的文本被添加到第三个电子表格第一列的第一个单元格中。 现在我想改进它，以便将所选文本添加到第一列的下一个空单元格（仍在第三个电子表格中）。

我的macros到目前为止是：

Sub Copy() Selection.Copy Sheets("Feuil3").Select Range("B2").Select ActiveSheet.Paste End Sub 

Answer 1

你应该可以用一行来做：

 Sub Copy() Selection.Copy Sheets("Feuil3").Range("B" & Sheets("Feuil3").Range("B" & Sheets("Feuil3").Rows.Count).End(xlUp).Row + 1) End Sub