Excel VBA質問箱 IV

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

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


29699 / 76732 ←次へ | 前へ→

【52308】Re:任意の空白のセルをマクロに書き込むには?
発言  Jaka  - 07/11/7(水) 14:30 -

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

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

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

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


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

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

【52304】任意の空白のセルをマクロに書き込むには? 海川豊大 07/11/7(水) 11:40 質問
【52305】Re:任意の空白のセルをマクロに書き込むに... Jaka 07/11/7(水) 11:49 発言
【52306】Re:任意の空白のセルをマクロに書き込むに... 海川豊大 07/11/7(水) 13:34 お礼
【52308】Re:任意の空白のセルをマクロに書き込むに... Jaka 07/11/7(水) 14:30 発言
【52309】Re:任意の空白のセルをマクロに書き込むに... 海川豊大 07/11/7(水) 14:50 お礼

29699 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free