Excel VBA質問箱 IV

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

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


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

40301 / 76807

←次へ　｜　前へ→


	【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)
で１行下という意味です。
詳しくは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