本地测试代码可以正常依次调整列宽，也许是运行结束选中H:J列，认为是只对后面的进行了操作。
以上代码可做如下简化：
Sub Macro7()
Columns("A:A").ColumnWidth = 5.5
Columns("B:B").ColumnWidth = 8.5
Columns("C:C").ColumnWidth = 20.5
Columns("D:D").ColumnWidth = 37.83
Columns("E:E").ColumnWidth = 5
Columns("F:F").ColumnWidth = 3
Columns("G:J").ColumnWidth = 8.5
End Sub
