求助，如何把一行的数据分为多行

这样。

Option Explicit
Sub abc()
　Dim a, i, j, k, m
　a = [a1].CurrentRegion.Value
　ReDim b(1 To UBound(a) * (UBound(a, 2) - 2), 1 To 3)
　For i = 1 To UBound(a)
　　For j = 3 To UBound(a, 2)
　　　If Len(a(i, j)) Then
　　　　m = m + 1: b(m, 3) = a(i, j)
　　　　For k = 1 To 2
　　　　　b(m, k) = a(i, k)
　　　　Next
　　　End If
　　Next
　Next
　[a1].Offset(, UBound(a, 2) + 1).Resize(UBound(b), UBound(b, 2)) = b
End Sub