vba編碼重新排列數據集

Question

我有幾個範圍的數據集，它是每個7x12單元格和所有排列在列中，所以我想重新排列成行。
某些範圍集可能爲空，所以我會忽略該範圍集。附圖顯示了當前結果和預期結果。
謝謝。

示範圖片：

Answer 1

你可以試試這個。請查看列表並針對您的場景進行更新

Public Sub DataRearrange() 
    Dim LastRowInSet As Long, LastCol As Long, LastRowInTransposedData As Long, ColumnIncrease As Long 
    Dim j As Long 

    ' Change this to the width of your repeating data set 
    ColumnIncrease = 4 
    ' Change this to your relevant Sheet Name 
    With Sheets("InsertYoursheetNameHere") 
     LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 

     ' There's no point doing it if there's only one set so lets Exit 
     If LastCol <= ColumnIncrease Then Exit Sub 

     For j = ColumnIncrease + 1 To LastCol Step ColumnIncrease 
      LastRowInSet = .Cells(.Rows.Count, j).End(xlUp).Row 
      LastRowInTransposedData = .Cells(.Rows.Count, 1).End(xlUp).Row 
      Range(.Cells(LastRowInTransposedData + 1, 1), .Cells(LastRowInTransposedData + LastRowInSet, ColumnIncrease)).Value2 = Range(.Cells(1, j), .Cells(LastRowInSet, j + ColumnIncrease - 1)).Value2 
      Range(.Cells(1, j), .Cells(LastRowInSet, j + ColumnIncrease - 1)).Clear 
     Next j 
    End With 
End Sub