Sadržaj
Ovaj će vodič pokazati kako podijeliti nizove u ćelije.
Podijeli niz u ćelije
U VBA -i možemo koristiti funkciju Split za podjelu niza teksta u niz.
Napomena: Napisali smo cijeli mega-vodič za korištenje funkcije Split u VBA. Toplo preporučujemo da to provjerite.
Zatim možemo proći kroz niz, ispisujući podijeljeni tekst u Excel ćelije:
| 12345678910111213141516171819 | Pod SplitBySemicolonExample ()'Definirajte varijableDim MyArray () Kao niz, MyString kao niz, I kao varijanta, N kao cijeli broj'Uzorak niza s graničnicima u zarezuMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Pomoću funkcije Split podijelite sastavne dijelove nizaMyArray = Split (MyString, ";")'Očistite radni listActiveSheet.UsedRange.Clear'ponavljati kroz nizZa N = 0 prema UBound (MyArray)'Stavite svaku adresu e -pošte u prvi stupac radnog listaRaspon ("A" & N + 1). Vrijednost = MyArray (N)Sljedeći N.Kraj podm |
Alternativno, možemo koristiti funkciju transponiranja za ispis niza na radni list:
| 12345678910111213 | Sub CopyToRange ()'Stvorite varijableDim MyArray () kao niz, MyString kao niz'Niz uzoraka s razdjelnicimaMyString = "Jedan, dva, tri, četiri, pet, šest"'Pomoću funkcije Split podijelite sastavne dijelove nizaMyArray = Split (MyString, ",")'Kopirajte niz u radni listRaspon ("A1: A" & UBound (MyArray) + 1) .Value = Radni list Funkcija. Transpozicija (MyArray)Kraj podm |
