タイトル行を配列からセットする

１行目をタイトル行として、配列に定義して文字列をセットします。
以下のようにセットすることもできますが、配列で定義することで列の追加が容易になり、見た目も横記載のため、イメージしやすくなります。

ws.Range(“A1”) = “No.”
ws.Range(“A2”) = “氏名”
ws.Range(“A3”) = “氏名(カナ)”
ws.Range(“A4”) = “住所”
ws.Range(“A5”) = “電話番号”

【サンプルプログラム】

    Dim idx As Long
    Dim strTitle() As Variant
    
    ' タイトルを配列にセット
    strTitle = Array("No.", "氏名", "氏名(カナ)", "住所", "電話番号")

    ' タイトルの配列サイズ分ループする
    For idx = LBound(strTitle) To UBound(strTitle)
        ' タイトル行の設定（１行目をタイトル行とする, 配列は0から始まるのでセルは+1する）
        ws.Cells(1, idx + 1) = strTitle(idx)
    Next idx