如何插入特定高度的空行进行选择？ < >我已经启动了Excel宏，在选择之后插入一个空白行，但是我想要空白的RoHeWiT＝6。我是VBA新手，但我渴望学习

这是一个正在工作的项目

Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.count
xCols = WorkRng.Columns.count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select

Do Until Selection.Row = FirstRow
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Offset(-1, 0).Select

Loop

Application.ScreenUpdating = True
End Sub

您需要.RowHeight属性：

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(1,0).RowHeight = 6
Selection.Offset(-1, 0).Select

---

…但请注意，要插入行，最好使用类似rows3的代码。插入Shift:=xlDown，CopyOrigin:=xlFormatFromLeftOrove，要更改列宽，请使用.ColumnWidth属性。下面的代码插入您提到的间隔柱

Option Explicit
Sub insertSpacerColumns()
Dim r As Range, i As Integer, startCol As Integer, numSpacers As Integer
Set r = Application.InputBox("Select columns", , , Type:=8)
i = r(, 1).Column + 1
numSpacers = r(, r.columns.Count).Column - i + 1
Do
  columns(i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  columns(i).ColumnWidth = 1
  i = i + 2
  numSpacers = numSpacers - 1
Loop Until numSpacers = 0
End Sub

---

从右脚开始。停止使用错误恢复下一步，直到您知道如何。非常感谢。我在选择一组列后添加间隔列时也遇到了问题，我还希望它们具有特定的宽度。