tôi đã có các dữ liệu sau trong excel:Excel Macro - Comma Separated tế bào để Rows
a, b, c
d
e
f, g
h
i
với mỗi hàng, đại diện cho một hàng và trong một tế bào.
Tôi muốn chuyển nó sang:
a
b
c
d
e
f
g
h
i
Tôi đang sử dụng macro sau, nhưng tôi không thể nhận được AutoSize làm một chèn, thay vì trọng các giá trị di động. Bất kỳ trợ giúp được đánh giá cao.
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
hoạt động tuyệt vời, cảm ơn bạn –