|
シート"名簿"の 4列目が 123-4567 という形の郵便番号となってます
この8桁の1文字ずつを、シート"はがき縦"の各セルに表示したいのですが・・
mid や characters を使うんですかね・・・。
'変数の最初の内容を設定する
Worksheets("名簿").Select
myRow = 2
Check = Cells(myRow, 1).Value
Name1 = Cells(myRow, 2).Value
Name2 = Cells(myRow, 3).Value
Add11 = Cells(myRow, 4).Value
Add12 = Cells(myRow, 5).Value
Add13 = Cells(myRow, 6).Value
Add14 = Cells(myRow, 7).Value
'データがなくなるまで処理を繰り返す
Do Until Check = "end"
'郵便番号を転記
Worksheets("はがき縦").Range("E1").Value = Add11
Worksheets("はがき縦").Range("F1").Value = Add12
Worksheets("はがき縦").Range("G1").Value = Add13
・
・
・
・
|
|