excel行高12的全部调为18？

来源：百度知道 编辑：UC知道 时间：2024/07/04 10:26:33
求助高手，我做一个excel表格，有大概几千行，里面有行高12的行，有行高24的行，有行高30的行，我现在想把所有行高为12的行全部调为18，请问怎么调阿？当然不可能一个一个去调，谢谢高手！
高手们请看好：是要把所有行高为12的行全部调为18，而我这个表格里有很多种行高，我只想转换行高12的

编制一个宏，代码如下：

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+z
'
Dim i As Integer
Dim str As String
Dim rowmax As Integer '最大行号

For i = 1 To rowmax
str = i & ":" & i
Range(str).Select
If Selection.RowHeight = 12 Then
Selection.RowHeight = 18

End If

Next
End Sub

按ctrl + a 选择全表
菜单:格式-行-行高
在弹出的对话框中,填入行高18 确定

击左上角的全部选中按钮，光标移到左边的行号上，托动到18即可。

按ctrl + a 选择全表
菜单:格式-行-行高
在弹出的对话框中,填入行高18 确定

编制一个宏，代码如下：

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+z
'
Dim i As Integer
Dim str As String
Dim rowmax As Integer '最大行号

For i = 1 To rowmax
str = i & ":" & i
Range(str).Select
If Selection.RowHeight = 12 Then
Selection.RowHeight = 18

En