如何插入特定高度的空白行进行select？

我已经启动了一个Excelmacrosselect后插入一个空行，但我想空白rowheight = 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 

Answer 1

要插入行，请使用类似rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove代码。插入rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove并使用.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 

Answer 2

您需要.RowHeight()属性：

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

…但请注意，最好避免使用。select/。 .Activate