用VBA吧：
Sub Test()
rn = 1
For r = 1 To Sheets("sheet2").Range("A65536").End(xlUp).Row
c = 1
Do While Sheets("sheet2").Cells(r, c) <> ""
Sheets("sheet1").Cells(rn, 1) = Sheets("sheet2").Cells(r, c)
Sheets("sheet1").Cells(rn, 2) = Sheets("sheet2").Cells(r, c + 1)
c = c + 2
rn = rn + 1
Loop
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024