注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel设置列宽、行高自动适应内容  

2009-12-05 16:59:34|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/123039471200911545934377/

    一般情况下,这是一个很简单的操作,确保设置了单元格自动换行,然后选择整个表格(点选左上角的行列交叉处或者按Ctrl+A),鼠标移动到任意两列之间的交线,鼠标光标显示成带左右箭头时,双击即可自动适应列宽。设置行高自动适应也类似,选整个表,鼠标移动到任意两行之间的交线,双击。

    但是对于一个单元格内含有多行的情况,上面的方法无法自大适应列宽(用Excel 2003测试),只能先手动把列宽设置很大,才能用自动适应。列数少的情况就手动拉吧,多的话自然就是用vba了,下面两个宏任选其一都可以:

Sub Macro1()
    Cells.WrapText = True
    For i = 1 To ActiveSheet.UsedRange.Columns.Count
        Columns(i).ColumnWidth = 200
    Next i
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        Rows(i).RowHeight = 200
    Next i
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
End Sub

Sub Macro2()
    For i = 1 To ActiveSheet.UsedRange.Columns.Count
        Columns(i).WrapText = True
        Columns(i).ColumnWidth = 200
        Columns(i).EntireColumn.AutoFit
    Next i
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        Rows(i).WrapText = True
        Rows(i).RowHeight = 200
        Rows(i).EntireRow.AutoFit
    Next i
End Sub

  评论这张
 
阅读(5273)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018