文字を変えてループ処理をする方法がわかりません

質問

エクセルマクロ初心者です。

ループ処理でつまづいています。
今、JPN、CHN、KOR、HOZ、USAといった名前毎に処理を行っており、JPNのひととおりの処理が終わったら次はCHN、CHNが終わったらKORというように、順に処理をさせたいと思っています。処理内容は、名前が変わっても全く同じなので、コピペして名前を変えてダラダラと書く・・でも出来なくはありませんがスマートではありません。ベタ書きでは１連の処理内容にJPN、JPN、JPN・・・と数十回出てくるので書き直すのが大変ですし、漏れが発生してしまいます。。For～Nextで処理できるのかなと思っていますが、名前を可変させていく書き方がわかりません。

どうかご教示下さい。宜しくお願い致します。

回答No.3

keithin · ベストアンサー

他の方向けのお礼に掲示された内容を盗み見してる状態で、こちらとしては大変心苦しいのですが。
初心者さんが絶対一度、やらかしますが、変数名を""で囲っちゃ全くだめです。

sub macro1()
　dim a as variant

　for each a in array("JPN","CHN","KOR","HOZ","USA")
　　with worksheets("harituke").range("B1:B500")
　　　.autofilter field:=1, criteria1:=a
　　　activesheet.autofilter.range.offset(1).copy destination:=worksheets(a).range("A1")
　　　.autofilter
　　end with
　next
end sub

寄せられた回答を「それぞれ」よく見て、回答同士でもどこが違ってるのか（けどどちらも正しい）キチンと把握して、正しく応用してください。

お礼

keithinさん
ありがとうございました。うまくいきました。

>初心者さんが絶対一度、やらかしますが、変数名を""で囲っちゃ全くだめです
載せたコードのご指摘いただいた部分以外でも""で囲ってエラーになってしまった部分がたくさん発生し、""を外すことでうまくいきました。
""で囲う、囲わない、で意味合いが全く異なってくること、しっかり勉強していきたいと思います。

回答No.4

xls88

＞No.1 この回答へのお礼
既に、No.3でkeithinさんが回答されていらっしゃいますように
折角の変数を""で囲むと単なる文字列（定数）という事になってしまいます。
願わくばNo.1の回答内容を再吟味してください。

No.1 私の回答は入門者レベルだと思います。
No.2 keithinさんの回答はVBAに精通された1段階レベルUPした内容だと思います。
非常に参考になりました。ありがとうございました。

お礼

xls88さん
ありがとうございました。
いろんなご回答を頂けるので、逆にいろいろと試すことができています。
勉強になります。
ありがとうございました。

回答No.2

keithin

For Each Nextで配列の中身を直接ぐるぐる廻すのでも構いません。

sub macro1()
　dim a as variant

　for each a in array("JPN","CHN","KOR","HOZ","USA")
　msgbox a
　next
end sub

お礼

keithinさん
ご回答ありがとうございました。
得たい処理がまだうまくいっていませんが、まずはお礼申し上げます。

xls88さんのお礼コメントに記載いたしましたが、Valiant型を使用しているa（xls88さんの場合はarg）をfor～nextの間の処理に入れてみました。オートフィルタをかけ、指定したaのシートに貼り付ける部分でエラーになってしまいます。
書き方が悪いのかどうなのか、解決できていない部分です。

回答No.1

xls88

配列にします。

Dim arg As Variant
Dim i As Long

arg = Array("JPN", "CHN", "KOR", "HOZ", "USA")
For i = LBound(arg) To UBound(arg)
MsgBox arg(i)
Next

お礼

xls88さん
ご回答ありがとうございます。
得たい結果が得られていないのでループ処理がうまくいっているのかどうかまだ分かりませんが、まずはお礼申し上げます。
Variant型を使用しているので、argを処理中のどの位置に挿入しても処理が回ると思っているのですが、うまくいきません。

下記のように、"harituke"シートのB列にargが存在していて、オートフィルタをかけた後
事前に準備されている各argのWorksheetsに貼り付けていく作業をしています。
すると
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("arg").Range("A1")

でエラーになってしまい、得たいループ処理が初めでつまづいてしまっています。
下記ソースをForとNextの間に入れるだけではうまくいかないのでしょうか。

Sheets("harituke").Activate

With Worksheets("harituke").Range("B1:B500")
.AutoFilter Field:=1, Criteria1:="arg"
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("arg").Range("A1")
.AutoFilter
Worksheets("arg").Range("1:1").Delete
End With