Excel VBA質問箱 IV

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

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


40226 / 76732 ←次へ | 前へ→

【41607】Re:あるセルの内容と同じシート名を探し...
発言  ぱっせんじゃー  - 06/8/16(水) 20:30 -

引用なし
パスワード
   マクロの自動記録をして見ましょう。
↓はB12:G12をシート1のB列の最終行
の次の行に貼り付ける作業を自動記録
したものです。

  Range("B12:G12").Select
  Selection.Copy
  Sheets("Sheet1").Select
  Range("B65536").Select
  Selection.End(xlUp).Select
  Range("B13").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False

これは、↓のように簡略化できます。
※Offsetは自動記録では出ません。
Offset(1)
で1行下という意味です。
詳しくはVBAヘルプをご参照ください。

  Range("B12:G12").CopySheets("Sheet1").Range("B65536").End(xlUp).Offset(1)

なお
Range("B12:G12")
のようにシートを明示しないとアクティブシートのB12:G12とみなされます。
他のシートがアクティブの時でも大丈夫なように、
WorkSheets("Sheet2").Range("B12:G12")
のようにシートを明示しましょう。

0 hits

【41601】あるセルの内容と同じシート名を探してデータを移動させたい 裕香 06/8/16(水) 14:38 質問
【41602】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 14:46 発言
【41603】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 14:47 発言
【41604】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 15:01 発言
【41606】Re:あるセルの内容と同じシート名を探し... 裕香 06/8/16(水) 19:26 お礼
【41607】Re:あるセルの内容と同じシート名を探し... ぱっせんじゃー 06/8/16(水) 20:30 発言
【41618】Re:あるセルの内容と同じシート名を探し... 裕香 06/8/17(木) 10:01 お礼

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