マクロでの別シートへの書き出しについて

質問

Sheet1のA1にかなり長いコード（例えばN12345678912345678199999999999999998888888888888888355555555555555553333333333333333が入力されています。
（1）Sheet2のA1にコードの頭18文字除いた後のコードの先頭から1文字飛ばした16文字を書き出し（9999999999999999と書き出されてほしい）
（2）Sheet2のB1には更に（1）の続きの16文字を書きだし（8888888888888888と書き出されてほしい）
（3）Sheet2のA2には（2）まで書き出して残っているコードのまた1文字飛ばした16文字を書き出し（5555555555555555と書き出されてほしい）
（4）Sheet2のB2には（3）の続きの16文字が書き出し（3333333333333333と書き出されてほしい）
こんなことって出来ますでしょうか？Sheet1のA1に入力されるコードの文字数はもっと長く決まっていません。

回答No.2

maruru01 · ベストアンサー

No.1です。

補足欄について。
つまり、(1)と(2)を、A1の文字数に応じて繰り返すということでしょうか。
それなら、こんな感じかな。

Dim strCode As String
Dim i As Long

strCode = Worksheets("Sheet1").Range("A1").Value

i = 1
Do Until (i - 1) * 52 >= Len(strCode)
　　With Worksheets("Sheet2")
　　　　.Cells(i, 1).Value = Mid(strCode, 20 + (i - 1) * 33, 16)
　　　　.Cells(i, 2).Value = Mid(strCode, 36 + (i - 1) * 33, 16)
　　End With
　　i = i + 1
Loop

お礼

ありがとうございます。
Do Until (i - 1) * 52 >= Len(strCode) の部分がなかなかできず、困っていましたが解決しました！

回答No.1

maruru01

こんにちは。maruru01です。

Mid関数を使用すればいいのでは？

Dim strCode As String

strCode = Worksheets("Sheet1").Range("A1").Value

With Worksheets("Sheet2")
　　.Range("A1").Value = Mid(strCode, 20, 16)
　　.Range("B1").Value = Mid(strCode, 36, 16)
　　.Range("A2").Value = Mid(strCode, 53, 16)
　　.Range("B2").Value = Mid(strCode, 69, 16)
End With

補足

回答ありがとうございます。
関数で同じように作成していたのですが、Sheet1のA1に入るコードの文字数が果てしない数なので、VBAでループ出来たらなと思いまして質問しました。A1のコードの文字数を出して、ループするにはどうしたら良いのでしょうか？
説明が足らずすいませんでした