如果行為空，如何從其下面的行復制/粘貼數據以填充空行？

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