vba - Excel 10 - 次のセルにテキストを書き込む

Question

ボタンをクリックすると、選択したテキストが 3 番目のスプレッドシートの最初の列の最初のセルに追加されるように、Excel 10 でマクロを作成しました。選択したテキストが最初の列の次の空のセル (まだ 3 番目のスプレッドシート) に追加されるように、これを改善したいと思います。

これまでの私のマクロは次のとおりです。

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

score 1 · Accepted Answer

次の 1 行を使用して実行できるはずです。

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

1 に答える 1