在excel中为每个表插入百分比后的行

Question

我有100张桌子。我需要在每个％之后为每个表插入行。如何使用excel宏执行此操作？

        'Total  `Banglore`  `Delhi`

Q1。年龄

Base '653 '77' '86'

18-19 '35' '15'`'22'

      '5%  '19%  '26%'

20-24 '216' '30' '33'

      '33%   '3    '38%' 

谢谢，

Tanuvi

Answer 1

这可能会有所帮助： 编辑在OP请求中添加了一些评论。

Sub Insert_blank_rows()

    Dim i As Long
    Dim LastRow As Long
        'this code will run from last till first row which is required when inserting rows
        'here we check last not-empty row to know which point to start from
        LastRow = Cells(Rows.Count, 1).End(xlUp).Row

        'start the loop from last not-empty direction first row
    For i = LastRow To 1 Step -1
        'if first cell in row is empty and there are some other not-empty cells
        If Len(Cells(i, 1)) = 0 And Application.CountBlank(Rows(i)) <> Columns.Count Then
            'we will insert empty row right below that row
            Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next i

End Sub

一些信息：

- 适用于活动表

- 我假设您问题中的第一列是表单中的A列

-code不检查行中是否有％符号，但依赖于您传递的其他信息（行中的第一个单元格为空，同一行中的某些其他单元格填充了值）

以下图片显示前后状态。