当前位置: 代码迷 >> VBA >> excel VBA列阔调整
  详细解决方案

excel VBA列阔调整

热度:209   发布时间:2016-05-11 06:33:19.0
excel VBA列宽调整
请教各位大虾:
excel中有若干不等宽列,怎样实现它们列等宽并且总列宽等于原来的列宽?
感谢。
------解决思路----------------------


Sub average()
Dim i, k, widths, widthaver As Long
k = 0
widths = 0
For i = sheet1_startrow To sheet1_endrow
    widths = i.ColumnWidth + widths
    k = k + 1
Next i
widthaver = widths / k
For i = sheet1_startrow To sheet1_endrow
    i.ColumnWidths = widthaver
Next i
End Sub
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Sun Oct 22 21:40:20 CST 2017
  • 最近登录:Sun Oct 22 21:40:20 CST 2017
  • 最近登录:Sun Oct 22 21:40:20 CST 2017
  • 最近登录:Sun Oct 22 21:40:20 CST 2017
  • 最近登录:Sun Oct 22 21:40:20 CST 2017