Съдържание
Този урок ще покаже как да разделите низове на клетки.
Разделете низа на клетки
Във VBA можем да използваме функцията за разделяне, за да разделим низ от текст на масив.
Забележка: Написахме цяло мега-ръководство за използване на функцията за разделяне във 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 |
