时间戳

首页 > 解决方案 > 在字段之间插入空行或移动条目

excel - 在字段之间插入空行或移动条目

问题描述

我在 A 列中有一个项目列表（从 A12 开始）我想知道执行此操作的最佳方法。我希望所有条目之间有 7 行间隙。这些条目将添加一些代码，可能会说如果此处的文本然后在下面添加 7 行，直到不再有。或者有没有办法对其进行编码，以便将条目推送到不同的字段（7+向下）。代码会是什么样子？

基本添加行是：

Range("A13").EntireRow.Insert

标签： excelvba

解决方案

因此，连同@Plutian 和他插入新行的代码，我将其编辑为filldown新行，其中包含来自每个非空白单元格的数据。希望这可以帮助。

Sub numberf()
    Application.ScreenUpdating = False
    Dim lastrow As Integer
    lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    Do While lastrow > 12
        Range("A" & lastrow).EntireRow.Resize(7).Insert
        lastrow = lastrow - 1
        Debug.Print lastrow
    Loop

    lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    Dim i As Long

    i = 1
    For i = 12 To lastrow Step 8
        If Cells(i, 1).Value <> "" Then
            Range("A" & i).Resize(8).EntireRow.FillDown
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

推荐阅读