Tartalomjegyzék
Ez az oktatóanyag bemutatja, hogyan lehet a karakterláncokat cellákra osztani.
Karakterlánc felosztása cellákra
A VBA -ban a Split függvény segítségével szövegsort oszthatunk tömbre.
Megjegyzés: Egy teljes mega-útmutatót írtunk a Split Function használatához a VBA-ban. Erősen javasoljuk, hogy nézze meg.
Ezután végigmehetünk a tömbön, és az osztott szöveget Excel cellákba adjuk ki:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definiálja a változókatDim MyArray () mint karakterlánc, a MyString mint karakterlánc, én mint változat, N mint egész'Mintafüzér pontosvessző -határolókkalMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Használja az Osztás funkciót a karakterlánc összetevőinek felosztásáhozMyArray = Osztott (MyString, ";"))'Törölje a munkalapotActiveSheet.UsedRange.Clear'ismételje meg a tömbötN = 0 esetén UBound (MyArray)'Helyezze az egyes e -mail címeket a munkalap első oszlopábaTartomány ("A" & N + 1). Érték = MyArray (N)Következő N.End Sub |
Alternatív megoldásként használhatjuk az Átültetés funkciót a tömb munkalapba történő kimenetére:
| 12345678910111213 | Sub CopyToRange ()'Hozzon létre változókatDim MyArray () mint karakterlánc, MyString mint karakterlánc'Minta karakterlánc szóközzelMyString = "Egy, kettő, három, négy, öt, hat"'Használja az Osztás funkciót a karakterlánc összetevőinek felosztásáhozMyArray = Osztott (MyString, ",")Másolja a tömböt a munkalapraTartomány ("A1: A" & UBound (MyArray) + 1). Value = WorksheetFunction.Transpose (MyArray)End Sub |
