Цей підручник покаже, як розділити рядки на клітинки.
Розділити рядок на клітинки
У VBA ми можемо використовувати функцію розбиття, щоб розділити рядок тексту на масив.
Примітка: Ми написали цілий мегапосібник щодо використання функції Split у VBA. Ми настійно рекомендуємо вам це перевірити.
Потім ми можемо перебирати масив, виводячи розділений текст у клітинки Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Визначте змінніDim MyArray () As String, MyString As String, I As Variant, N As Integer'Зразок рядка з роздільниками з комоюMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Використовуйте функцію Split, щоб розділити складові частини рядкаMyArray = Розділити (MyString, ";")'Очистіть аркушActiveSheet.UsedRange.Clear'перебирати по масивуДля N = 0 до UBound (MyArray)'Помістіть кожну електронну адресу в перший стовпець аркушаДіапазон ("A" & N + 1). Значення = MyArray (N)Далі NEnd Sub |
Крім того, ми можемо використовувати функцію транспонування для виведення масиву на аркуш:
| 12345678910111213 | Sub CopyToRange ()'Створіть змінніDim MyArray () As String, MyString As String'Зразок рядка з роздільниками пробілівMyString = "Один, два, три, чотири, п'ять, шість"'Використовуйте функцію Split, щоб розділити складові частини рядкаMyArray = Розділити (MyString, ",")'Скопіюйте масив на аркушДіапазон ("A1: A" & UBound (MyArray) + 1) .Value = Робочий лист Функція. Транспонування (MyArray)End Sub |
