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

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