vba中如何在特定的行后面插入3行空白行

送到

请问大神，如何在37行和38行之间插入3行空白行。37行和38行这边只是举个例子，并不是每次都在37与38之间，想在最后一个数字行和下一行之间插入3行，请问该如何写。
第一个空白行A列，想实现选取X轴的最大值，B列实现Y轴最小值
第二个空白行A列，想要选取最开始X轴的数据，B列实现Y轴最小值
第三个空行行A列，想要选取最开始X轴的数据（A23），B列选取最开始Y轴数据（B23）

jokixu

间隔相同有规律的话，可以直接循环做。没有规律，只能循环取字符串来判断（比如右边取一个字符是#的）来定位插入位置。

送到

jokixu 发表于 2018-7-20 08:43
间隔相同有规律的话，可以直接循环做。没有规律，只能循环取字符串来判断（比如右边取一个字符是#的）来定 ...

每次的行数都是不一样的， 不过都是以×# 板1开头的，请问如何写代码

CC例例

看楼主题意，觉得很难定位。图片中3#在21行，4#在38行，而插入的行位置在38行并插入的关键词是字符#,A列中有多个#字符，如何判断？

送到

CC例例 发表于 2018-7-20 10:48
看楼主题意，觉得很难定位。图片中3#在21行，4#在38行，而插入的行位置在38行并插入的关键词是字符#,A列中 ...

我的想法是，每碰到一个#字符，则在它的上面插入3个空白行

mythqiu

模糊查找#号找到行号。用find

yuwd3

上转附件……………………………………………………

mythqiu

1.        Sub 插入行()
   
2.         Dim kk, FindX, i
   
3.         For i = 1 To 50000 Step 1
   
4.             kk = 1
   
5.             Set FindX = Range("A" & kk & ":A50000").Find("#", , , xlPart, , xlNext) '模糊向下查找连续的# 符号
   
6.             If Not FindX Is Nothing Then
   
7.                 kk = FindV.Row  '找到,行号
   
8.                 Range("A" & kk & "").Resize(3, 10).EntireRow.Insert shift:=xlShiftDown  ' 一次插3行
   
9.             Else
   
10.                 Exit For        '没找到,退出 for 循环
    
11.             End If
    
12.         Next
    
13.        End Sub

复制代码

mythqiu

上一个错了.审核还没出来
       Sub 插入行()
        Dim kk, FindX, i
        For i = 1 To 50000 Step 1
            kk = 1
            Set FindX = Range("A" & kk & ":A50000").Find("#", , , xlPart, , xlNext) '模糊向下查找连续的# 符号
            If Not FindX Is Nothing Then
                kk = FindV.Row + 1 '找到,行号
                Range("A" & kk & "").Resize(3, 10).EntireRow.Insert shift:=xlShiftDown  ' 一次插3行
            Else
                Exit For        '没找到,退出 for 循环
            End If
        Next
       End Sub

送到

mythqiu 发表于 2018-7-21 09:52
上一个错了.审核还没出来
       Sub 插入行()
        Dim kk, FindX, i

先前通过请教别人，已经把这个问题克服了，虽然没有用上，但还是要感谢您