Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29705 / 76738

←次へ　｜　前へ→


	【52308】Re:任意の空白のセルをマクロに書き込むには？

Jaka - 07/11/7(水) 14:30 -


	引用なし

	パスワード

マクロ記録だとこんな感じになっていると思います。
↓このままでは、アクティブシートが対象になってしまいます。

Sub Macro1()
　　Range("A1").Select
　　Selection.End(xlDown).Select
End Sub

だから、明確にシートを指定してやればいいんです。↓

（空白セルの１個手前のセルから下に１個づらしたセル。）
Sheets("貼り付けシート").Range("A1").End(xlDown).Offset(1).PasteSpecial

予断
Range("A1").Select　　　　　　　セルＡ１を選択しなさい
Selection.End(xlDown).Select　選択セルから下に向かって空白セルの１個前セルを選択しなさい。

「セルＡ１を選択しなさい」命令後の、
選択したセルって同じじゃん。
Select
Selection
は省いてつなげてかけるかも？
と、速く気づいて自分で試せるようになってください。

1 hits

▼

【52304】任意の空白のセルをマクロに書き込むには？ 海川豊大 07/11/7(水) 11:40