VBAでテキストファイル出力時の数字の桁がずれる、一の桁にそろえて出力したい

Question

ExcelVBAでのtxt出力の際に右の画像の様にゼロとその他の数字で列がズレてしまいます。
本当は、ゼロの数字の列を1行目、２行目の1の桁に合わせた形でtxt出力したいのですが
そういったことは可能でしょうか？

書いたコードは下記になります。

Sub out_put()

Dim FileNumber As Integer
Dim strFilePath As String
Dim outDats(1 To 500) As Variant
Dim myRow As Long
Dim i As Long
Dim flg_out As Boolean

Cells.Select
Selection.HorizontalAlignment = xlRight

strFilePath = ThisWorkbook.Path & "\test0318.txt"
FileNumber = FreeFile

Open strFilePath For Output As #FileNumber

'アクティブシートの使用済み領域を出力範囲とします。
With ActiveSheet.UsedRange
    For myRow = 1 To .Rows.Count
        '出力対象のチェック
        If myRow = 1 Then
            flg_out = True  'タイトル行は出力
        ElseIf CBool(.Cells(myRow, 500).Value) Then
            flg_out = True  '[対象]がTRUEの場合は出力

' Else
' flg_out = False '上記以外は出力しない
End If

        If flg_out Then
            '出力用の配列へデータをセットします。
            For i = 1 To 72
                outDats(i) = .Cells(myRow, i).Value
            Next i
            '配列の要素をカンマで結合して出力します。

' Print #FileNumber, Join(outDats, " ")
Print #FileNumber, Join(outDats)
End If
Next myRow
End With

'入力ファイルを閉じます。
Close #FileNumber

End Sub

Answer 1

１．一度全部巡回して各列の最大桁数を配列に格納
２．再度巡回してFormat(x, String(最大桁数, "@"))で空白を埋めて出力

formatのユーザー定義文字列書式

Comments

[退会済みユーザー]

解決出来ました。
ご回答有難う御座いました。