合併來自多個列的數據合併到一列

Question

我有以下幾點：

我使用@BigBobby's answer來實現這一目標：

Sub MoveData() 
Range("H5:H99").ClearContents 
START_ROW = 5 
START_COL = 1 
STEP_COL = 2 
OUTPUT_ROW = 5 
OUTPUT_COL = 8 
Limit_Col = 9 

Row = START_ROW 
Col = START_COL 
Out_Row = OUTPUT_ROW 
While Col < Limit_Col 
    While Cells(Row, Col).Value <> "" 
     Cells(Out_Row, OUTPUT_COL).Value = Cells(Row, Col).Value 
     Out_Row = Out_Row + 1 
     Row = Row + 1 
    Wend 
    Row = START_ROW 
    Col = Col + STEP_COL 
Wend 
End Sub 

但正如你看到的，我期望能獲得這些值出現在列中的空白單元格之後。但是這段代碼無法將那些以黃色突出顯示的單元格拉出
如何修改此代碼來提取一個或多個空白單元格後可能出現的所有數據？

Answer 1

調整此代碼：

While Cells(Row, Col).Value <> "" 
    Cells(Out_Row, OUTPUT_COL).Value = Cells(Row, Col).Value 
    Out_Row = Out_Row + 1 
    Row = Row + 1 
Wend 

爲：

Do until row > Cells(65536, Col).End(xlUp).Row 
    Cells(Out_Row, OUTPUT_COL).Value = Cells(Row, Col).Value 
    Out_Row = Out_Row + 1 
    Row = Row + 1 
Loop 

這主要檢查是否該行已經通過了最後一排的數據，如果有，它移動到下一列。

編輯

要不能跨越的空白單元格複製使用：

Do until row > Cells(65536, Col).End(xlUp).Row 
     If Cells(Row, Col).Value <> "" then 
      Cells(Out_Row, OUTPUT_COL).Value = Cells(Row, Col).Value 
      Out_Row = Out_Row + 1 
     End If 
     Row = Row + 1 
    Loop 

Answer 2

以前的答案是接近的，但它也將複製所有的空格中。此代碼應該執行您所需的操作：

Sub MoveData() 

START_ROW = 5 
START_COL = 1 
STEP_COL = 2 
OUTPUT_ROW = 5 
OUTPUT_COL = 10 

Row = START_ROW 
Col = START_COL 
Out_Row = OUTPUT_ROW 
While Col < OUTPUT_COL 
    While Row < ActiveSheet.UsedRange.Rows.Count 
     If Cells(Row, Col).Value <> "" Then 
      Cells(Out_Row, OUTPUT_COL).Value = Cells(Row, Col).Value 
      Out_Row = Out_Row + 1 
     End If 
     Row = Row + 1 
    Wend 
    Row = START_ROW 
    Col = Col + STEP_COL 
Wend 
End Sub