如果行为空，如何从其下面的行复制/粘贴数据以填充空行？

Question

我有一个包含大量空白行的电子表格，我需要从每个空行下面的单元格中提取特定数据以填充空白行。 我在VBA上还不够好，无法弄清楚如何完成这一系列复杂的步骤，所以提前谢谢你，对不喜欢如何解决这些问题的开发人员表示遗憾。

我已经打破了我需要的步骤。

1. 确定行是否为空。
2. 如果为true，则从空行下方的行的A列复制文本。
3. 将文本粘贴到空行的A列中。
4. 将文本的最后三位数更改为“XXX”。
5. 继续直到电子表格结束。

编辑：目前的单元格：

我希望他们看起来像：

我正在尝试为每个集合执行此操作，但可能有2,3,4或更多行，其上方有一个空行。 因此VBA需要包含该组中的所有行。

Answer 1

这听起来像你想要的。 如果您的数字是数字，则在尝试取出数字之前，您需要将它们转换为文本。

Sub dostuff()

For ir = 1 To 10000

   If (Cells(ir, 1).value = "" And Cells(ir + 1, 1).value = "") Then _
      Exit For 

   If (Cells(ir, 1).value = "") Then _
      Cells(ir, 1).value = _ 
          Mid(Format(Cells(ir + 1, 1).value,"00000000"),1,5) & "XXX"

 Next ir


 End Sub