Excel 2010：使用 VBA 将单元格从垂直数据移动到水平数据

Question

Excel 2010

我想将以下数据从垂直状态移动到水平数据。我想要一个 VBA 的解决方案。 （我已经有公式了）。

订单 = (A10) 结果 = (B10) 超过 1000 行

| Order1         | result                                                                       
| line1          | result 1
| line2          | result 1
| line3          | result 1
| line4          | result 1
| line5          | result 1
| line6          | result 1
| line7          | result 1
| line8          | result 1
|      br        |                                                                           
| Order2         | result                                                                   
| line1          | result 1
| line2          | result 1
| line3          | result 1
| line4          | result 1
| line5          | result 1
| line6          | result 1
| line7          | result 1
| line8          | result 1

我希望它解析为：

Order 1  |  result1  |  result2  |  result3  |  result4  |  result5  |  result6  |  result7  |  result8  |  
Order 2  |  result1  |  result2  |  result3  |  result4  |  result5  |  result6  |  result7  |  result8  |  

提前致谢

编辑
我现在的公式是这样的： (C10)=IF(A3="Order1 ",1,0)（结果：1）
(D10)=IF($C3=1,B3,0)（结果：来自第 1 行的结果）
(E10)=IF($C3=1,B10,0)（结果：来自第 2 行的结果）
等等。

然后我复制并自动填充整张数据表，然后它全部填满。 我用这种方式构建新表。

当我进行宏记录时，它不会记录单元格中的实际公式。

Answer 1

如果我们开始：

Sheet1 中的订单之间有空格，然后是这个宏：

Sub reorg()
    Dim s1 As Worksheet, s2 As Worksheet, N As Long, i As Long, j As Long, k As Long
    Dim v As Variant
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    N = s1.Cells(Rows.Count, "A").End(xlUp).Row
    j = 1
    k = 1

    For i = 1 To N
        v = s1.Cells(i, 1).Value
        If v = "" Then
            j = j + 1
            k = 1
        Else
            s2.Cells(j, k) = v
            k = k + 1
        End If
    Next i
End Sub

将在 Sheet2

中生成这个

编辑#1：

要将 A10 用作起点和终点，请使用：

Sub reorg()
    Dim s1 As Worksheet, s2 As Worksheet, N As Long, i As Long, j As Long, k As Long
    Dim v As Variant
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    N = s1.Cells(Rows.Count, "A").End(xlUp).Row
    j = 10
    k = 1

    For i = 10 To N
        v = s1.Cells(i, 1).Value
        If v = "" Then
            j = j + 1
            k = 1
        Else
            s2.Cells(j, k) = v
            k = k + 1
        End If
    Next i
End Sub