[已解决]在EXCEL中，能否用VBA代码，实现对当前工作表中有数据的列实现自动列宽

yjwdjfqb

在EXCEL中，能否用VBA代码，实现对当前工作表中有数据的列实现自动列宽

就是说，用VBA代码，对当前工作表中，有数据列，实现自动列宽

如果有，请大家帮写下代码，谢谢大家！

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-12-6 22:27

yjwdjfqb 发表于 2013-12-6 22:15
这一句好用，如果这样呢

A至F这些列，有数据的自动列宽，但最宽的列，又不得超过50，怎么用代码写呢老 ...

Sub tr()
Dim a As Integer, i As Integer
a = Cells(1, Columns.Count).End(xlToLeft).Column '取第一行的最后一列的列号
For i = 1 To a
  Columns(i).EntireColumn.AutoFit  '每列自适应
   If Columns(i).ColumnWidth > 50 Then  '判断当前列的列宽是否大于50  大于则等于五十
     Columns(i).ColumnWidth = 50
   End If
Next i
End Sub

跳转到最佳答案楼层

yyyydddd8888

Sub ttt()
Dim i&
For i = 1 To Columns.Count
  If Application.CountA(Columns(i)) > 0 Then
  Columns(i).ColumnWidth = AutoFit
Next i
End Sub

我心飞翔410

Columns("A:F").EntireColumn.AutoFit

yjwdjfqb

我心飞翔410 发表于 2013-12-6 21:58
Columns("A:F").EntireColumn.AutoFit

这一句好用，如果这样呢

A至F这些列，有数据的自动列宽，但最宽的列，又不得超过50，怎么用代码写呢老师，麻烦了！

我心飞翔410

yjwdjfqb 发表于 2013-12-6 22:15
这一句好用，如果这样呢

A至F这些列，有数据的自动列宽，但最宽的列，又不得超过50，怎么用代码写呢老 ...

Sub tr()
Dim a As Integer, i As Integer
a = Cells(1, Columns.Count).End(xlToLeft).Column '取第一行的最后一列的列号
For i = 1 To a
  Columns(i).EntireColumn.AutoFit  '每列自适应
   If Columns(i).ColumnWidth > 50 Then  '判断当前列的列宽是否大于50  大于则等于五十
     Columns(i).ColumnWidth = 50
   End If
Next i
End Sub

yjwdjfqb

我心飞翔410 发表于 2013-12-6 22:27
Sub tr()
Dim a As Integer, i As Integer
a = Cells(1, Columns.Count).End(xlToLeft).Column '取第 ...

老师，就是想要你这样的，但，执行代码后，工作表没有执行自动列宽呀。。请老师斧正下。。

我心飞翔410

a = Cells(1, Columns.Count).End(xlToLeft).Column '取第一行的最后一列的列号
如果你第一列没数据的话就没反应 ，那个1 改改 比如第二列有数据就改为2  改为最多的那行的行号

yjwdjfqb

我心飞翔410 发表于 2013-12-6 22:40
a = Cells(1, Columns.Count).End(xlToLeft).Column '取第一行的最后一列的列号
如果你第一列没数据的话就 ...

感谢老师的帮助！

victory610

真不错，又学到了一招。