Question

我只想在列的每一行中插入新行（从标题下方的第三行开始）。但是，相反，宏在第三行中添加了n个新列，n是该列中的行数。我有另一个具有相同循环的宏，可以在每个单元格中插入超链接，这绝对可以，现在我正在绘制空白...

可能是什么原因？

time

Answer 1

假设您想在任何现有行的开始处插入新行，并按照现有代码逻辑，可以尝试以下（假装这不是最好的方法）：

Sub InsertRows()

'Fully qualify your Range references
With Sheet1                 ' Using e.g. the project sheet's Code(Name)
    Dim lRow As Long
    lRow = .Cells(.Rows.Count, 3).End(xlUp).Row
    Dim i As Long
    i = 3
    'Define the resulting end row
    Dim eRow As Long
    eRow = 2 * lRow - i + 1

    Do
        .Range("C" & i).EntireRow.Insert
        i = i + 2                   ' increment in double steps
    Loop Until i > eRow
End With

End Sub

VBA-遍历列并插入行

1 个答案: