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

Question

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

到目前为止，我的宏是：

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