Небольшие критические замечания (не стоит понижать голосование): 1 / Вы удаляете все пробелы в поле (например, «Боб, Джилл Смит, Джордж» становится «Боб», «Джиллсмит», «Джордж»). 2 / Ваше "удалить слева" лучше, чем "output_str = mid (output_str, 2)". Кроме этого и АН, кажется, все в порядке.
я есть следующие данные в 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