VBA Excel行高到最后一行

Question

这是与此查询密切相关的查询：

Setting RowHeight Excel VBA

但是当我稍微修改它时(因为我只想要行高= 15 )。

 Dim ws As Worksheet
 Set ws = ActiveSheet

 Dim Rng As Range
 Dim cel As Range
 Set Rng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)) '& lastRow

 For Each cel In Rng
 cel.Rows.AutoFit
 cel.Rows.RowHeight = 15
Next cel

我在点击单元格(活动单元格)的地方得到了结果。

我试图将& lastRow放在.End(xlUp)之后，但不幸的是，它没有起作用。

情况如下：

​

​

只对前5行进行了调整(最初激活了单元格)，但我需要所有行都调整到最后。它的价值在未来将是灵活的。

我怎么能这么做？

Answer 1

在set rng中，您指定了导致问题的activecell。此外，您还有xlUp，正如您在这里看到的，它将选定的单元格向上格式化。这个对你有用吗？

 Sub test()
    ActiveSheet.UsedRange.Rows.AutoFit
    ActiveSheet.UsedRange.Rows.RowHeight = 15
 End Sub

Answer 2

行高适用于整行，因此所选列与此无关。

而且没有必要循环。

Sub x()

Dim Rng As Range

Set Rng = Range("S1", Cells(Rows.Count, "S").End(xlUp))

rng.EntireRow.AutoFit 
rng.EntireRow.RowHeight = 15   

End Sub