VBA 自动调整行高代码

可以回答这个问题。以下是一个 VBA 自动调整行高的代码示例：

Sub AutoAdjustRowHeight()
Dim i As Integer
Dim j As Integer
Dim str As String
Dim arr As Variant
Dim maxLen As Integer
Dim curLen As Integer

For i = 1 To ActiveSheet.UsedRange.Rows.Count
maxLen = 0
str = ActiveSheet.Cells(i, 1).Value
arr = Split(str, Chr(10))
For j = LBound(arr) To UBound(arr)
curLen = Len(arr(j))
If curLen > maxLen Then
maxLen = curLen
End If
Next j
ActiveSheet.Rows(i).RowHeight = maxLen * 2
Next i
End Sub

这个代码可以自动调整当前工作表中所有行的行高，使得每一行的高度能够适应该行中最长的文本内容。

相关问题

VBA实现单元格根据单元格内容自动更改行高

您好！要实现VBA自动更改行高的功能，可以使用Worksheet_Change事件来监测单元格内容的变化，并根据内容的长度来调整行高。以下是一个示例代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Me.UsedRange)
    
    If Not rng Is Nothing Then
        Application.ScreenUpdating = False
        
        For Each cell In rng
            Me.Rows(cell.Row).AutoFit
        Next cell
        
        Application.ScreenUpdating = True
    End If
End Sub

在工作表的VBA编辑器中，将以上代码复制粘贴到该工作表对应的代码模块中。当单元格的内容发生变化时，会自动调整其所在行的行高来适应内容。

请注意，这段代码将监测所有单元格内容的变化，并自动调整其所在行的行高。如果只想针对特定的单元格范围进行行高调整，可以根据需要修改代码中的"Me.UsedRange"为特定的范围。

希望能帮到您！如有更多问题，请随时提问。

Excel VBA设置行高

好的，您想知道如何使用Excel VBA设置行高。以下是一些VBA代码可以用来设置行高：

Sub SetRowHeight()
    '设置第2行的行高为20
    Rows(2).RowHeight = 20
    
    '设置多行的行高为15
    Rows("3:5").RowHeight = 15
    
    '根据单元格的内容自动调整行高
    Rows(6).EntireRow.AutoFit
    
End Sub

您只需要将这些代码复制到Excel VBA编辑器中，并将其与所需的事件关联，即可设置行高。希望这可以帮助您完成您的任务！