excel吧 关注：280,627贴子：1,540,457
- 24回复贴，共1页
毛里大神的公式.
Sub ABCD()
Selection.Copy '首先要选择数据区域(包标题),再运行即可
Sheets.Add.Paste '自动插入新工作表，以显示结果
Dim H%, L%, k%, y%, arr, n%
H = Selection.Rows.Count
L = Selection.Columns.Count
k = 1
[a1].Resize(1, L).Copy Cells(1, L + 1)
For y = 2 To H
arr = Split(Cells(y, L), ",") '根据选择区域最右列拆分
For n = 0 To UBound(arr) '必须是英文逗号
k = k + 1 '选择区域可以是许多列
Cells(k, 2 * L) = arr(n)
Cells(y, 1).Resize(1, L - 1).Copy Cells(k, L + 1)
Next
Next
Range(Columns(1), Columns(L)).Delete
End Sub
