如何使用VBA Excel中的宏调整合并单元格的行高？

Question

我制作了一张Excel工作表，用作调查表。 为了允许广泛的烦恼和调整设计，我合并了单元格。 我现在遇到的问题是行高不会自动调整。 因此，我写了一个简短的宏来解决这个问题。 但是，此宏仅适用于单个单元格，不适用于合并的单元格。 因此，我想知道如何解决这个问题。 如何使用VBA Excel中的宏调整合并单元格的行高？

谢谢您的帮助！

Answer 1

与往常一样，如果发布宏将很有用，但是我猜您正在尝试使用.entirerow.autofit命令吗？ 如果是这样，我不相信该函数会评估合并的单元格。 （如果我错了，请纠正我！）

您可能要考虑使用“跨中心范围”而不是合并单元格。 或者，您可能想创建一个规则以循环遍历单元格以检查字符长度或是否输入了“输入键” CHR(10) ，并根据该尺寸确定大小。 例：

        Sub TestEachCl()
        Dim CL As Range

        'Make sure to include the intersect with usedrange, 
        'otherwise this will take much longer than necessary.
        For Each CL In Intersect(Rows(20), ActiveSheet.UsedRange).Cells

        If InStr(1, CL.Formula, Chr(10)) > 0 Then
        'enter key exists in a cell
        CL.EntireRow.Height = 30
        'probably want to close the loop or have it not do 
        'anything else once it has reached max height, 
        'so it doesn't reduce the size

        End If

        Next CL

        End Sub