用VB写了个文本汇总，格式无法解决？

绝尘不求

VB写的文本汇总，格式无法解决？
如附件

工作簿1.rar (17.62 KB, 下载次数: 3)

2022-2-4 11:12 上传

点击文件名下载附件

绝尘不求

Sub 文本框综合()
With Sheets("Sheet1")
     r = .Cells(Rows.Count, 1).End(xlUp).Row + 5
     ar = .Range("a1:d" & r)
     For i = 2 To UBound(ar) - 5 Step 6
     If zf = "" Then
        zf = ar(i, 1)
    Else
        zf = zf & vbCrLf & ar(i, 1)
    End If
        For j = 2 To UBound(ar, 2)
            For s = i To i + 5
                If Trim(ar(s, j)) <> "" Then
                    zf = zf & vbCrLf & ar(s, j)
                End If
            Next s
        Next j
        zf = zf & vbCrLf
    Next i
    .Range("F3") = zf
End With
End Sub