Excel VBA For Each ○○ In Selectionを使ったマクロについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回はＥＸＣＥＬＶＢＡ For Each ○○ In Selectionを使ったマクロについてです。最後のsheetのコピーを現在のsheetの後ろに作成するＶＢＡです。

Sub 請求先シート作成2007年版()
Dim 処理セル As Range 　①
Sheets(“請求先”).Select
Sheets(“請求先”).Range(“A1”, Sheets(“請求先”).Range(“A65536”).End(xlUp)).Select ‘請求先シート作成。   ②
For Each 処理セル In Selection     ③
Sheets(Worksheets.Count).Copy after:=ActiveSheet     ④
ActiveSheet.Name = 処理セル.Value     ⑤
Next
End Sub