在VBA中设置行高可以通过以下几种方法：
方法一：使用ActiveWindow.RangeSelection
你可以通过选定一个区域，然后设置该区域内所有单元格的行高和列宽为指定的数值。
```vba
Sub SetSpecified（）
With ActiveWindow.RangeSelection
.ColumnWidth = 2 ' 设置列宽为2
.RowHeight = 10 ' 设置行高为10
End With
End Sub
```
方法二：使用AutoFit
如果你希望将选定区域内各单元格的行高和列宽调整为最合适的值，可以使用`AutoFit`方法。
```vba
Sub SetAutoFit（）
With ActiveWindow.RangeSelection
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub
```
方法三：恢复默认值
如果你希望将活动工作表中的所有单元格的行高和列宽恢复为默认值，可以使用以下代码。
```vba
Sub SetDefault（）
With ActiveSheet
.Columns.ColumnWidth = .StandardWidth
.Rows.RowHeight = .StandardHeight
End With
End Sub
```
方法四：通过输入框自定义行高
你还可以通过输入框来获取用户输入的行高值，并设置给选定的单元格区域。
```vba
Sub 设置行高列宽（）
Dim w As Integer
Dim h As Integer
w = InputBox（"请输入列宽"）
h = InputBox（"请输入行高"）
ActiveWindow.RangeSelection.ColumnWidth = w
ActiveWindow.RangeSelection.RowHeight = h
End Sub
```
方法五：通过循环设置特定行的行高
如果你只想设置特定行的行高，可以使用循环来实现。
```vba
Sub 鱼木混猪（）
Rows（1）.RowHeight = 10 ' 将第一行行高设置为10
For i = 3 To 10 Step 2
Rows（i）.RowHeight = 10 ' 利用循环将3到10行中的奇数行行高设置为10
Next i
End Sub
```
方法六：全选单元格后设置行高
如果你希望设置全选单元格的行高，可以先选择所有单元格，然后设置行高。
```vba
Sub SelectAllCells（）
Cells.Select
ActiveWindow.RangeSelection.RowHeight = 10 ' 设置所有单元格的行高为10
End Sub
```
建议
选择合适的方法：根据你的具体需求选择合适的方法来设置行高。如果你需要设置特定区域的行高，可以使用`SetSpecified`或`SetAutoFit`方法。如果你需要恢复默认值，可以使用`SetDefault`方法。
灵活使用输入框：如果你希望用户自定义行高，可以使用`设置行高列宽`方法，通过输入框获取用户输入的值。
循环设置：如果你需要设置特定行的行高，可以使用循环方法，如`鱼木混猪`示例。
通过这些方法，你可以轻松地在VBA中设置Excel工作表的行高。