求助，单列转置问题。

B1=A2，C1=A3，D1=A4，以此类推，往下拖动公式。
然后加个辅助列，筛选出题目所在的行，复制可见单元格到另一个表就行了

Option Explicit
Sub abc()
　Dim a, i, m, n, p
　a = Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row + 1).Value
　ReDim b(1 To UBound(a), 10) As String '最大支持10个选项，爆掉再加点
　For i = 2 To UBound(a) - 1
　　n = n + 1: b(m + 1, n) = a(i, 1)
　　If Len(a(i + 1, 1)) > 0 And IsNumeric(Left(a(i + 1, 1), 1)) Or i = UBound(a) - 1 Then
　　　m = m + 1: b(m, 0) = a(p + 1, 1)
　　　p = i: i = i + 1: n = 0
　　End If
　Next
　[c1].Resize(m, UBound(b, 2) + 1) = b
End Sub