VBA调整具有某个总长度值的行高

Question

我有一组包含＆＃34; 1＆＃34;的值的行。在列L中。我希望vba将这些行的高度调整为总高度375（或500像素）。有任何想法吗？在此之前运行宏，以便所有其他行不包含＆＃34; 1＆＃34;被删除，它们被组合在一起。范围从第8行到第30行的任何位置都会发生变化。

Answer 1

这应该让你开始：

Sub changeRowHeight()
    Dim myRange As Range
    Dim firstCell As Range
    Set firstCell = Range("L2")

    If IsEmpty(firstCell.Offset(1, 0).Value) Then
       Set myRange = firstCell
    Else
       Set myRange = firstCell.Parent.Range(firstCell, firstCell.End(xlDown))
    End If

    'MsgBox (myRange.Address)

    myRange.RowHeight = 375 / myRange.Count
End Sub

---

从此开始：

结果：