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

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

我的宏到目前为止是：

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

2012-12-20 Sam

为了找到最后一行：http://stackoverflow.com/questions/ 11169445/error-finding-last-used-cell-in-vba –

你可能也想看到这个？ http://stackoverflow.com/questions/10714251/excel-macro-avoiding-using-select –

如果在尝试查找列A中的最后一个单元格后仍然遇到问题，或者无法将数据粘贴到该范围内，可以随时更新您的代码。 – Larry

你应该能够使用一个线做到这一点：

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

2012-12-20 10:22:39

它是列A，而不是B. – Larry

我正在使用使用列“B”的“迄今为止的宏” –

+1看起来不错 – whytheq

回答