【求助】求大神帮忙看看关于行高的问题

lcl520zj

关于行高设置的问题。希望大神能解决这2个问题

例如1：希望每一行的行高都为30，有超过30的行高，就调整成最适合行高。

例如2：希望每一行调整成在最适合行高的基础上+10的行高。

这2个是分开了 不需要同时满足。希望大神能分别解决这2个问题。万分感谢

山菊花

'希望每一行的行高都为30，有超过30的行高，就调整成最适合行高。
Sub test1()
    Dim Rng As Range, Rng2 As Range
    Range("a1:a10").Rows.AutoFit
    For Each Rng In Range("a1:a10")
        If Rng.RowHeight < 30 Then
            If Rng2 Is Nothing Then
                Set Rng2 = Rng
            Else
                Set Rng2 = Union(Rng2, Rng)
            End If
        End If
    Next
    Rng2.RowHeight = 30
End Sub
'希望每一行调整成在最适合行高的基础上+10的行高。
Sub test2()
    Dim Rng As Range
    Range("a1:a10").Rows.AutoFit
    For Each Rng In Range("a1:a10")
        Rng.RowHeight = Rng.RowHeight + 10
    Next
End Sub

lcl520zj

山菊花 发表于 2024-2-1 11:50
'希望每一行的行高都为30，有超过30的行高，就调整成最适合行高。
Sub test1()
    Dim Rng As Range, Rn ...

我试了下 不行呢 大神能再测试下不。或者我把表格发出来 大神帮忙调一下

lcl520zj

这是需要调整的表格

山菊花

lcl520zj 发表于 2024-2-1 12:25
这是需要调整的表格

该表格需要怎样调整？

lcl520zj

山菊花 发表于 2024-2-1 12:33
该表格需要怎样调整？

希望大神用着2中要求分别调整下 万分感谢
例如1：希望每一行的行高都为30，有超过30的行高，就调整成最适合行高。
例如2：希望每一行调整成在最适合行高的基础上+10的行高。

山菊花

将range("a1:a10")改为你需要的区域。
Sub test2()
    Dim nRow%
    nRow = Me.Range("a1048576").End(xlUp).Row
    Range("a1:a" & nRow).Rows.AutoFit
    For i = 3 To nRow
        Rows(i).RowHeight = Rows(i).RowHeight + 10
    Next
End Sub

lcl520zj

山菊花 发表于 2024-2-1 13:04
将range("a1:a10")改为你需要的区域。
Sub test2()
    Dim nRow%

非常感谢 非常非常感谢