Question

EXCEL的VBA寻找有数字或者没数字的单元格

需要：从某个有内容单元格（D15)开始向下数，数到第4格（从D15数到D19），如果数到的这个单元格（D19）有数字就在这个单元格上插入一行空行，否则检查下一个单元格（D20）是否有数字，如果有就往下数4个单元格。5行为一个循环，第一个单元格检验是否有数字，保证下面四个单元格是空格。如果少一个空格就插入一行。如此反复。如果需要设置一个停止的位置，是否可以是连续10个空白单元格，停止。

Answer 1

按照楼主的逻辑，这个VBA不怎么复杂，不过以下几点请确认：

1. 插入行的话，其他列的数据会一起下移，而楼主指定的插入位置，是在【（起始有数据的单元格开始往下计数不超过4个空单元格时）的第一个有数据的单元格】的上方。

   强调这个，是因为插入位置的不同，会影响到其他列的数据的位置

2. 如果数据不是那么完美的话，有可能会产生和楼主的图不一样的结果：

   比如，D15有数据，下面是D16~D20的五个空格，而D21～D22是有数据的。这时，按照判断，D20为空，将往下找到D25进行循环判断。不知道这是不是也符合楼主的需求？

   也就是说，如果D15(D20、D25……)往下原本的空格超过了4个，可能发生不可知的结果，当然，也许楼主的数据不会发生这种情况。只是，逻辑是需要精确的。

追问

因为我的数据源是从PDF转换过来的，所以数字没有出现在我需要的位置，它们有的隔四行，有的隔五行，我希望有数字的单元是固定的，不知是否能实现？因为我要用这个固定好的格式再做其他表格的数据源。该怎样操作？能否帮忙编好sub语句？我测试一下？谢谢！

追答

呵呵，测试有问题再改吗？上面两点你都不愿意确认呀，我输入了那么多文字，楼主难道不应该对这具体问题给个回馈？是不是认为知友无偿奉献就可以随便使用呢，这样吧，如果我要求初次编程支付10元，以后每次修改支付5元，楼主还会不会在不完全说明需求的情况下付款要求编程测试一下呢？

追问

不是这个意思，你误会了。我完全不懂程序，所以不知道怎样表述，我以为已经把我想要的说清楚抱歉。我只会做简单的EXCEL，百度后发现可以使用VBA来完成很多繁杂的工作，所以来请教。谢谢你非常认真的对待了我的问题。
1，我从PDF转换过来的这个表格是不含公式的，我觉得，插入一行应该不会影响到数据。
2，目前我的数据没有超过4个空格的。如果当我发现可以有，我是否可以自己调整间隔的参数？
非常感谢！

追答

为你做了一段代码放在sheet1(演示)表中

Sub Arrange()
Dim i!, j!, k!, lStart
lStart = 15: j = 5: k = 10
Do
    For i = 0 To k - 1 'K 行空白循环判断
        If Cells(lStart + i, "D") <> "" Then Exit For
    Next
    If i = k Then Exit Do '达到结束条件
    If Cells(lStart, "D") <> "" Then
        For i = 1 To j - 1
            If Cells(lStart + i, "D") <> "" Then Rows(lStart + i).Insert
        Next
    End If
    lStart = lStart + j '跳到下一集合
Loop
End Sub

在Sheet2(样本)所示的数据的情况下，运行结果如(演示)的效果，附件请下载参考。

注：如果空行超过4行，将产生奇怪的结果。楼主可以拷贝样本后稍稍修改数据进行测试

Answer 2

vba 各种任务帮解决