構文の解説をつけてください。

質問

sub macro1()
　dim a as variant
　dim h as range
　dim r as long
　dim w0 as worksheet

　set w0 = activesheet
　worksheets.add after:=w0
　r = 1
　range("A1:G1") = array("苗字","名前","住所","TEL","〒","好きなスポーツ","性別")

　on error resume next
　for each h in w0.range("A1:A" & w0.range("A65536").end(xlup).row)
　　if h <> "" then
　　　a = split(replace(application.trim(replace(replace(h, "　"," "),"：",":")),": ",":"), " ")
　　　r = r + 1
　　　cells(r, "A") = split(a(0), ":")(1)
　　　cells(r, "B") = split(a(1), ":")(1)
　　　cells(r, "C") = split(a(2), ":")(1)
　　　cells(r, "D") = split(a(3), ":")(1)
　　　cells(r, "E") = split(a(4), ":")(1)
　　　cells(r, "F") = a(5)
　　　cells(r, "G") = a(6)
　　end if
　next
end sub

回答No.1

imogasi · ベストアンサー

＞set w0 = activesheet
アクチブシートオブジェクトをW0と名前付け。
>worksheets.add after:=w0
ワークシートについて、（Ｗ０シートのタブの右側に）１シートを挿入。
＞range("A1:G1") = array("苗字","名前","住所","TEL","〒","好きなスポーツ","性別")
配列６項目を作り（右辺の処理）、それを同一行の横方向セルA1:G1の５つのセルに１度で値をセット。
＞a = split(replace(application.trim(replace(replace(h, "　"," "),"：",":")),": ",":"), "
カンマで目印にして、文字列を「区切り」り、配列に入れる。
Replaceは各セルの文字列について、３段構えで、ネストして置換している。
スペースと：と：（半角）の３段。Ｒｅｐｌａｃｅ関数の第１引数に３つ文字を１度に指定できないので、ネストして１文字ずつＲｅｐｌａｃｅして３段で置換。
for each h in w0.range("A1:A" & w0.range("A65536").end(xlup).row)
Ａ列の最終行のせるまでについて各セルを順次処理対象セルｈにする。
ＦｏｒＥａｃｈで対象の各セルについての処理の繰り返し。
＞cells(r, "A") = split(a(0), ":")(1)
a(0)の文字列を：で分割し、最初の部分をセル（ｒ行目のＡ列）に代入する。
（１）は卑劣配列に入ったものの第１番目。
以下cells(r, "F") ＝の部分は同じ。
a()そのまま代入しているのは
cells(r, "F") = a(5)
cells(r, "G") = a(6)
の行。

お礼

回答ありがとうございます。
大変助かりました!!
また何かありましたら宜しくお願い致しますm(_ _)m