セルの幅を超えたデータが隠れてしまわないように「折り返して全体を表示する」を書式に設定する。
セル幅の限界を超えてるかどうか調べて、超えていた場合に設定するようにする
ThisWorkbook.Sheets(SHEET_NAME).Range(“A:GG”).EntireColumn.AutoFit
For i = 1 To 100 Step 1
If CELL_WIDTH_LIMIT < ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.ColumnWidth Then
ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.ColumnWidth = CELL_WIDTH_LIMIT
ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.WrapText = True
End If
Next
EntireColumn.AutoFit 列をデータの幅にする
ColumnWidth セル幅
WrapText = True 「折り返して全体を表示する」