☰

宏：在包含不同数字的单元格上方插入新行

tag-icon • tag-icon microsoft-excel vba macros code
宏：在包含不同数字的单元格上方插入新行

我有一个包含两列的 Excel。A 列包含数字，B 列包含文本数据。数字是连续的，如 1 2 3，它们之间有几个空白单元格，如下所示。例如：

1   Text
    Text
    Text
2   Text
    Text
    Text
3   Text
    Text

我需要在 A 列中的每个数字上方插入一个空白行。

有人能帮我设置一个 Excel 宏来在 A 列包含数字的单元格上方插入一个空白行吗？

答案1

在我看来，你的描述有点模棱两可，但这就是我得出的结论确切地符合規定的要求。

Dim r As Long
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If IsNumeric(Cells(r, 1).Value) And CBool(Len(Cells(r, 1).Value)) Then _
        Rows(r).EntireRow.Insert shift:=xlDown
Next r

相关内容