我有具有在Excel以下数据:Excel宏 - 逗号分隔细胞对行
a, b, c
d
e
f, g
h
i
,每行代表一个行和在一个小区中。
我想将其转换为:
a
b
c
d
e
f
g
h
i
我使用下面的宏,但我不能让自动调整大小做插入,而不是覆盖单元格值。任何帮助表示赞赏。
Sub SplitCells()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = 1 To Selection.Rows.Count
Dim splitValues As Variant
splitValues = split(Selection.Rows(i).Value, ",")
Selection.Rows(i).Resize(UBound(splitValues) - LBound(splitValues) + 1).Value = Application.Transpose(splitValues)
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
很好用,谢谢 – 2009-01-23 15:22:24