excel 行高 同时+1 高分悬赏100分

来源：百度知道 编辑：UC知道 时间：2024/09/24 22:50:08
注意
1.现在每一行的行高不同
2.让每一行的行高同时比以前行高加一
3.更改之后其他设定不变
4.答案详细一些 ，有简便方法更好
5.有没有不用vba的 方法简单些的 方便日常使用的

1. alt+F11
2. 粘贴进去：
Sub Widening()

Dim i As Integer
Dim max As Integer

max = ActiveSheet.UsedRange.Rows.Count

For i = 1 To max
Me.Rows(i).RowHeight = Me.Rows(i).RowHeight + 1
Next

End Sub

3. F5

即可，有数据的行高就会自动加1了。

使用VBA，
1、首先在菜单右键，选择Visual Basic，出现VBA相关按钮。
2、点工具箱，选择按钮，在空地随便画一个就行。
3、选择VBA的设计模式，双击刚才画的按钮。
4、在VBA编辑画面，输入：
Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 20
Me.Rows(i).RowHeight = Me.Rows(i).RowHeight + 1
Next

End Sub
其中20可以变成你当前数据达到的最大行数。
5、编辑完成后，保存，返回Excel画面，去掉“VBA的设计模式”的按钮选中状态。单击画出来的按钮，画一次，行高涨一次。

执行格式菜单中行高，在此对话框中设置，好像还没找到更简便的方法．