如何在 Microsoft Excel 中以百分比增加多個儲存格高度

Question

我有一張具有不同垂直高度的桌子，例如 20、30 和 40。問題在於細胞彼此非常接近。我想在頂部和底部留出一個空間。我嘗試垂直對齊，但無法在單元格之間添加空格。如果多個單元格的百分比增加，例如從20,30,40 到22,33, 44. 10%，那就太好了；或者，如果有恆定的增加，例如從20,30, 40 到22，那就太好了, 32, 42. 2 常數

Answer 1

VBA（巨集）可以解決您的問題：

Sub Setrowheight()

    Dim hgt As Variant
    Dim WorkRng As Range

    xTxt = ActiveWindow.RangeSelection.Address

    Set WorkRng = Application.InputBox("Please select the height range:", "Row Height", xTxt, , , , , 8)

For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

---

---

怎麼運作的：

• 在 A 列的適當儲存格中插入值。
• 任何一個右鍵點擊工作表選項卡並從彈出的選單中點擊檢視程式碼或按Alt+F11取得 VB 編輯器。
• 在左上角找到專案瀏覽器，選擇工作表選項卡然後右鍵點擊並擊中插入然後模組。
• 複製&貼上這段程式碼。
• 跑步宏。
• 選擇範圍A12:A17以響應輸入框並結束於好的

您發現對應的行高度已使用 中的儲存格值設定A12:A17。

注意

• 因此，標準行高是在考慮增加甚至減少行高時15.00插入的值。A12:A17

• 您可以根據需要調整儲存格參考。