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

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

        'Total  `Banglore`  `Delhi`

问题1。年龄

Base

'653

'77'

'86'

18-19

'35'

'15'

'22'

      '5%  '19%  '26%'

20-24

'216'

'30'

'33'

      '33%   '3    '38%' 

谢谢

---

Tanuvi

这可能会有帮助： 编辑根据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

子插入\u空白\u行（）
我想我会坚持多久
最后一排一样长
'此代码将从最后一行运行到插入行时所需的第一行
'这里我们检查最后一个非空行，以了解从哪个点开始
LastRow=单元格（Rows.Count，1）.End（xlUp）.Row
'从最后一个非空方向第一行开始循环
对于i=最后一行到1步骤-1
'如果行中的第一个单元格为空，并且还有其他一些非空单元格
如果Len（Cells（i，1））=0且Application.CountBlank（Rows（i））Columns.Count，则
'我们将在该行的正下方插入空行
行（i+1）。插入Shift:=xlDown，CopyOrigin:=xlFormatFromLeftOrAbove
如果结束
接下来我
端接头

一些信息：

-它适用于活动工作表

-我假设你问题的第一栏是你工作表中的A栏

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

下面的图片显示了状态之前和之后

---

这可能会有帮助： 编辑根据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

子插入\u空白\u行（）
我想我会坚持多久
最后一排一样长
'此代码将从最后一行运行到插入行时所需的第一行
'这里我们检查最后一个非空行，以了解从哪个点开始
LastRow=单元格（Rows.Count，1）.End（xlUp）.Row
'从最后一个非空方向第一行开始循环
对于i=最后一行到1步骤-1
'如果行中的第一个单元格为空，并且还有其他一些非空单元格
如果Len（Cells（i，1））=0且Application.CountBlank（Rows（i））Columns.Count，则
'我们将在该行的正下方插入空行
行（i+1）。插入Shift:=xlDown，CopyOrigin:=xlFormatFromLeftOrAbove
如果结束
接下来我
端接头

一些信息：

-它适用于活动工作表

-我假设你问题的第一栏是你工作表中的A栏

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

下面的图片显示了状态之前和之后

---

---

给你的第一个提示。。。你已经问了一些问题，得到了一些令你满意的答案。使用SO功能，通过标记正确答案“关闭”这些问题。这就是这里的人们在帮助他人时的感受。：）谢谢KazJaw提供的信息。干得好：）回到你的问题，还有什么（除了%符号）能将这些线与其他线区分开来？这些行包含字符串值或数字值，格式为显示%符号。频率行在第一列中具有属性（字符串），但%行在第一列中为空白。但是在一张表格之后会有空白，接下来会有问题文本和“基础”这意味着什么，你有100张表格，它们都在一张纸上吗？给你的第一个提示。。。你已经问了一些问题，得到了一些令你满意的答案。使用SO功能，通过标记正确答案“关闭”这些问题。这就是这里的人们在帮助他人时的感受。：）谢谢KazJaw提供的信息。干得好：）回到你的问题，还有什么（除了%符号）能将这些线与其他线区分开来？这些行包含字符串值或数字值，格式为显示%符号。频率行在第一列中具有属性（字符串），但%行在第一列中为空白。但是在一张表格之后会有空白，接下来会有问题文本和“基础”，这意味着你有100张表格，它们都在一张纸上吗？非常感谢。它起作用了。请详细说明这个宏中的每个代码。所以，请不要忘记将答案标记为答案，以通知其他人您的问题已解决。最后一个提示是，将来使用so时，您还可以使用so的其他功能，如向上投票、向下投票等。当然可以。非常感谢你的帮助……：）你能推荐一本学习宏的好书吗..不确定这里是否允许，但试着探索一下。还有StackOverflow，这里有很多有用的东西需要学习…非常感谢。它起作用了。请详细说明这个宏中的每个代码。所以，请不要忘记将答案标记为答案，以通知其他人您的问题已解决。最后一个提示是，将来使用so时，您还可以使用so的其他功能，如向上投票、向下投票等。当然可以。非常感谢你的帮助……：）你能推荐一本学习宏的好书吗..不确定这里是否允许，但试着探索一下。还有StackOverflow，这里有很多有用的东西需要学习。。。