Excel宏:如何更改所有行高,但如果cell.value = bold使单元格高度更大？

Question

我正在处理一长串数据(B列),这些数据已使用粗体和缩进格式化.粗体单元格包含标题/类别名称,缩进单元格值是子类别.

排高度遍布整个地方.对于一切都应该是10.5,而粗体单元格/行 15 应该是.我可以将所有内容更改为10.5,但是我需要花费相当多的时间来滚动列表以修改粗体行高度.我已经使用了格式画家,但这是一个很长的列表,我不想花太多时间在这个过程的这一部分.现在我知道我需要对另外30个文件执行此操作.

有没有人有更快的方法这样做？

Answer 1

Sub setHeights()
Dim targetRange As Range
Dim targetCell As Range

    Set targetRange = Range("B:B")
    For Each targetCell In targetRange
        If Not IsEmpty(targetCell) Then
            If targetCell.Font.Bold Then
                targetCell.RowHeight = 15
            ElseIf targetCell.Font.Superscript Then
                targetCell.RowHeight = 12.75
            Else
                targetCell.RowHeight = 10.5
            End If
        End If
    Next targetCell
End Sub

您可能希望更改Range("B:B")为类似的内容Table1.Range("B1:B255")