質問: エクセルでsheet1 のa列の最下行の値をsheet2のz列の最下行に転記したい 昔苦労してsheet1の特定のセルの値を、別のsheetの指定の列に転記する下記のマクロを試行錯誤で作成して使っているのですが、今回タイトルのように指定のシートの指定の列の最下行の値を、同じbookの別のシートの指定の列の最下行に転記したいのですが。
回答: こんにちは >同じbookの別のシートの指定の列の最下行に転記したいのですが。 現在の最下行に転記すると元のデータに上書きされますが合っていますか? 最下行の下の新規行ではないかと思うのですが、、、 書き方は色々ありますが、下記のような例でいかがでしょう 書き出し行が新規行の場合は、offset(1)としてください。 dim 指定のシート as worksheet dim 指定のシートの指定の列 as string dim 別のシート as worksheet dim 別のシートの指定の列 as string set 指定のシート = worksheets("sheet1") 'sheet1シート名 set 別のシート = worksheets("sheet2") 指定のシートの指定の列 = "a" 'a列 別のシートの指定の列 = "c" 'c列 別のシート.cells(rows.count, 別のシートの指定の列).end(xlup).offset(0).value _ = 指定のシート.cells(rows.count, 指定のシートの指定の列).end(xlup).value 2バイト文字変数は個人的には好きではありませんが、説明の為使用しています。