请大佬求助个函数

你的真实数据应该不止这些吧，有办法的，发我邮箱615983494@qq.com

Option Explicit
Sub 矩阵转单列()
　Dim i, j, a
　a = [a1].CurrentRegion.Value
　ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1) As String
　For j = 1 To UBound(a, 2)
　　For i = 1 To UBound(a)
　　　b((j - 1) * UBound(a) + i, 1) = a(i, j)
　　Next
　Next
　[a1].Offset(, UBound(a, 2) + 1).Resize(UBound(b)) = b
End Sub

=OFFSET(A$1,MOD(ROW(A4),4)+1,INT((ROW(A1)-1)/4))