动态设置行自动调整

Question

我使用带有Slicers的excel表来构建它以过滤数据。我想动态设置行高。有一个简单的VBA可供使用吗？我正在尝试

'AutoFit One Row
ThisWorkbook.Worksheets("Sheet9").Rows("V24:V400").Rows.AutoFit

Answer 1

根据您使用的第一行，您可以动态定义最后一行：

Dim LR as Long 'LR = Last Row
With Sheets("NAME")
    LR = .Cell( .Rows.Count, 1).End(xlUp).Row 'cells(row, col) means this is row 1 contigent
End With

然后在您的代码中，您可以使用：

ThisWorkbook.Worksheets("Sheet9").Range(Rows("24"),Rows(LR)).EntireRow.AutoFit

如果您正在谈论高度，可以使用每行循环为行高设置变量，例如：

Dim i as Long, j as Integer
j = "" 'Define i how you want.  You can make it an if statement or select case for some set units
For i = 24 to 400
    ThisWorkbook.Worksheets("Sheet9").Rows(i).RowsHeight = j
Next i