Excel Joinand SplitExcel toiminnot ovat erittäin hyödyllinen toiminto. Jakofunktiota käytetään rajatun merkkijonon ottamiseen ja arvojen jäsentämiseen matriisiksi. Join-toimintoa käytetään poimia arvot pois array ja liität ne takaisin eroteltu merkkijono., StringToProcess, Erotin , Kävisi Jouset Prosessi , Vertaile Vaihtoehto )
StringToProcess = merkkijono, joka on proccessed
Erotin = erotin, jota haluat käyttää,
Kävisi Jouset Prosessi = Kuinka monta jouset haluatko prosessi
Vertaile Vaihtoehto = haluatko erotin olevan kirjainkoko tai ei
Nyt oletetaan, että haluan ottaa merkkijono arvo soluun A2, prosessi se osaksi array, kirjoittaa array arvot sarakkeessa B ja sitten prosessi array arvot takaisin eroteltu merkkijono täsmennetään oma erotin arvo käyttää.,
Code
Dim A As Long ’laskuri käytämme prosessi tietojamme
Dim ArrayValues() As String ’Julistaa array-muuttuja,
Dim StringToProcess As String ’Tämä on merkkijono, joka käsitellään
Dim Laskuri, Niin Kauan ’Tämä muuttuja pitää rivi muuttujan hallita lähtö, jossa haluamme kirjoittaa lähtö
StringToProcess = ActiveSheet.Solut (2, 1).,Arvo ’Määritä arvo soluun A2 meidän string-muuttuja,
ArrayValues() = Split(StringToProcess, ”,”) ’split-toiminto jäsennetään pilkulla erotetut arvot,
’ osaksi array alkaen 0-asento., Array arvot,
’ovat dynaamisesti asutuilla riippuen siitä, kuinka monta arvot,
’on olemassa
Laskuri = 2 ’asetamme laskurin 2, koska haluamme aloittaa kirjoittaminen lähtö rivin 2.
’Nyt mennään array arvot ja kirjoittaa array arvot soluihin B2 kautta B8.
A = LBound(ArrayValues) To UBound(ArrayValues) ’Tämä antaa meille mahdollisuuden astua läpi array arvot käyttäen seuraava toiminto
ActiveSheet.,Solut (Laskuri, 2).Arvo = ArrayValues (A)