如何使用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