VBAによるカンマ区切り文字列→配列化→整列処理

Question

いま、日本郵政の郵送ラベルの自動作成をしたいと思っております。
そのためには、日本郵政のクリックポストというラベル発行サービスがあり、
そのサービスの指定したcsvをuploadしなければならず、それによりはじめてラベルが自動で印刷できる仕組みになっています。
そこで、そのサービスの指定したcsvを作りたいのですが、一つ一つの入力が大変で自動化したいと思っています

そこで、以下のようにしたいと思っています。

１．ECサイト（shopfy）の注文データの氏名住所データをコピー（氏名, 150-0000, 東京都 住所1,住所2,ビル名,日本）
２．これを日本郵政のサービス（クリックポスト）が求めるデフォルトcsvの入力欄外に上記カンマ区切りデータを貼付（以下codeでは10列目）
３．VBAを実行することで、上記カンマ区切りデータを並べ替えして入力欄に貼付

※問題は、注文者によって住所の描き方が違うことです。つまり住所1に全ての住所を記載する人もいれば、住所1に町名迄、住所2にビル名
など丁寧に分けて書く人がいることです。これにより配列の数が変わってきてしまい、以下のcodeではインデックスエラーが起こります。

ショッピファイの注文データが多く、クリックポストのCSVにするのが大変でどなたか助けてもらえませんでしょうか。

また、こちらの質問とは別件ですが、この方法ではショッピファイの注文を一人一人の画面を見て、その注文データの氏名住所をコピーしてと、まだ少し手間がかかるのですが、本当はなにかすれば、一気に未配送のデータをもとにクリックポストのcsvを作り出す良い方法があるように思っています。検索してもあまりでてこず、もしご存知の方がいらっしゃいましたら教えていただけますと本当に助かります。
御忙しい中恐縮です。

Sub clickpostcsv_gen()
    
    Dim LastRow As Long
        LastRow = Cells(Rows.Count, 10).End(xlUp).Row - 1　
'あるcsvファイルの（2,10）セルにカンマ区切りデータを入力しておりその行数を調べています。LastRowには入力データ数が入ります。
         
    Dim i As Long, tmp As Variant
    For i = 1 To LastRow
        tmp = Split(Cells(i + 1, 10), ",")
        
        Cells(i + 1, 2) = tmp(0)　　'(,2）が氏名入力欄です。
        Cells(i + 1, 1) = tmp(1〉　　'(,1）が郵便番号入力欄です。
        Cells(i + 1, 4) = tmp(2)　　'(,4）～(,6）が住所入力欄です。問題はここです。注文データによってはtmp(4)がなくインデックスエラーになるのです。
        Cells(i + 1, 5) = tmp(3)
        Cells(i + 1, 6) = tmp(4)
                
    Next i
End Sub

Comments

[meg_]

コードは「コードの挿入」で記入してください。

[JMS]

ありがとうございます。失礼致しました。修正させていただきました。

Answer 1

"氏名1, 150-0000, 東京都 住所1,住所2,ビル名,日本"　のデータが欠ける時に
"氏名2, 150-0001, 東京都 住所1,,,日本"　のようにカンマが残されるなら
Splitで分割したときの番号と項目の対応はズレないので、以下のようなやり方で対処できそうです。
もし "氏名3, 150-0001, 東京都 住所1,日本" のように、カンマが無くて
途中が抜ける場合には、分割後に何らかの内容を判断して対応する項目に埋める必要があります。

Sub clickpostcsv_gen()

    Dim LastRow As Long
        LastRow = Cells(Rows.Count, 10).End(xlUp).Row - 1　

    Dim i As Long, tmp As Variant
    Dim columns as Long

    Dim CustomerName as String
    Dim ZipCode as String
    Dim Address1 as String
    Dim Address2 as String
    Dim BuildingName as String
    Dim CountryName as String

    For i = 1 To LastRow
        tmp = Split(Cells(i + 1, 10), ",")
        columns = UBound(tmp)
        CustomerName = ""
        ZipCode = ""
        Address1 = ""
        Address2 = ""
        BuildingName = ""
        CountryName = ""      
        'カラム数が1〜6でない時は
        If columns > 6 Or columns < 1 Then
           GoTo CONTINUE            'その行を飛ばす
           ' BuildingName = "Error"  またはエラーメッセージを出力
        End If
        If columns > 5 Then
           CountryName = tmp(5)
        End If
        If columns > 4 Then
           BuildingName = tmp(4)
        End If
        If columns > 3 Then
           Address2 = tmp(3)
        End If
        If columns > 2 Then
           Address1 = tmp(2)
        End If
        If columns > 1 Then
           ZipCode = tmp(1)
        End If
        If columns > 0 Then
           CustomerName = tmp(0)
        End If

        Cells(i + 1, 1) = ZipCode      'お届け先郵便番号
        Cells(i + 1, 2) = CustomerName 'お届け先氏名
        Cells(i + 1, 3) = "様"         'お届け先敬称
        Cells(i + 1, 4) = Address1     'お届け先住所1行目
        Cells(i + 1, 5) = Address2     'お届け先住所2行目
        Cells(i + 1, 6) = BuildingName 'お届け先住所3行目

CONTINUE:
    Next i
End Sub

Shopifyヘルプによれば、CSVで注文データの一括出力もできるようです。

注文をCSVファイルにエクスポートする
https://help.shopify.com/ja/manual/orders/export-orders

Comments

[JMS]

正直、感動しました。完璧です。こういう頭の使い方ができるのは何故なんでしょう？天才のように思えます・・・。いやぁすごいです。 If columns > 5 Then　こうやってコラム数を計算していってtmp配列の変数への挿入を調整するんですね。考え方がとても勉強になりました。

Answer 2

配列がインデックスエラーになる対策として
UBound関数で配列の最大値を指定して処理を行うといいと思います。
参考サイト

    dim k as long
    For k = 2 To UBound(tmp)
        Cells(i + 1, k + 2) = tmp(k)       
    Next k

Comments

[JMS]

ご返信いただき有難うございました。こちらも考えてみたのですが、以下のように、tmp(x)を挿入する先が単純にi+1,k+2とできないので単純なforループで回せないのです。これができればforループを使いたいと思ったのですが。

```VBA
Cells(i + 1, 2) = tmp(0)　　'(,2）が氏名入力欄です。
Cells(i + 1, 1) = tmp(1〉　　'(,1）が郵便番号入力欄です。
Cells(i + 1, 4) = tmp(2)　　'(,4）～(,6）が住所入力欄です。問題はここです。注文データによってはtmp(4)がなくインデックスエラーになるのです。
Cells(i + 1, 5) = tmp(3)
Cells(i + 1, 6) = tmp(4)
```