Содержание
В этом руководстве будет показано, как разбить строки на ячейки.
Разделить строку на ячейки
В VBA мы можем использовать функцию разделения для разделения строки текста на массив.
Примечание. Мы написали целое мега-руководство по использованию функции разделения в VBA. Мы настоятельно рекомендуем вам проверить это.
Затем мы можем перебрать массив, выводя разделенный текст в ячейки Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Определить переменныеDim MyArray () как строка, MyString как строка, I как вариант, N как целое число'Пример строки с разделителями с запятойMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Используйте функцию Split, чтобы разделить составные части строкиMyArray = Разделить (MyString, ";")'Очистить рабочий листActiveSheet.UsedRange.Clear'перебирать массивДля N = 0 до UBound (MyArray)'Поместите каждый адрес электронной почты в первый столбец рабочего листаДиапазон ("A" и N + 1). Значение = MyArray (N)Следующий NКонец подписки |
В качестве альтернативы мы можем использовать функцию транспонирования для вывода массива на рабочий лист:
| 12345678910111213 | Sub CopyToRange ()'Создать переменныеDim MyArray () как строка, MyString как строка'Пример строки с разделителями пробеламиMyString = "Один, два, три, четыре, пять, шесть"'Используйте функцию Split, чтобы разделить составные части строкиMyArray = Разделить (MyString, ",")'Скопируйте массив в рабочий листДиапазон ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)Конец подписки |
