关于格式转换问题，求教贴吧大大们！

Option Explicit
Sub abc()
　Dim a, i, j, m, n, p
　With Sheets("sheet2")
　　a = .Range("a1:a" & .[a1].End(xlDown).Row + 1).Value
　End With
　ReDim b(1 To UBound(a), 1 To 10)
　For i = 2 To UBound(a) - 1
　　If IsNumeric(a(i + 1, 1)) Or Len(a(i + 1, 1)) = 0 Then
　　　m = m + 1: n = 0
　　　For j = p + 1 To i
　　　　n = n + 1
　　　　b(m, n) = a(j, 1)
　　　Next
　　　p = i: i = i + 1
　　End If
　Next
　Sheets("sheet3").[a1].Resize(m, UBound(b, 2)) = b
End Sub