Excel 10 - 将文本写入下一个单元格

Question

我在Excel 10中创建了一个宏，这样当我点击一个按钮时，所选文本就会被添加到第三个电子表格第一列的第一个单元格中。 现在我想改进它，以便将所选文本添加到第一列的下一个空单元格（仍在第3个电子表格中）。

到目前为止我的宏是：

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