热心网友
回答时间:2024-04-04 18:11
选中数据区域,按 ALT + F8 执行宏 Expand
宏代码:
Sub Expand()
Dim dt As String
dt = ""
For Each rg In Selection
dt = dt & rg.Value & " "
Next
a = Split(Trim(dt), " ")
c = 0
For Each rg In Selection
rr = rg.Row()
cc = 2 * rg.Column() - 1
Cells(rr, cc).Value = a(c)
Cells(rr, cc + 1).Value = a(c)
c = c + 1
Next
End Sub
收起