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"为特定的范围。

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