Funkcija zamenjave VBA - Zamenjaj niz

Ta vadnica bo pokazala, kako uporabiti funkcijo Zamenjaj VBA za zamenjavo nizov besedila.

Zamenjaj funkcijo

Funkcija VBA Replace vrne niz z zamenjavami. Z uporabo izbirnih parametrov se lahko nov niz začne na mestu, ki ga določa začetek, in konča na koncu prvotnega niza.

VBA Replace Zamenjaj podniz

Funkcijo VBA Replace lahko uporabite za zamenjavo katerega koli najdenega podniz, v vsakem najdenem delu.

12345678910111213141516

Sub ReplaceExample_1 ()MsgBox Replace ("ABCABCABC", "A", "!")"Rezultat je:"! BC! BC! BC "MsgBox Replace ("Všeč mi je roza, rdeča in črna", "roza", "vijolična")"Rezultat je:" Všeč mi je vijolična, rdeča in črna "MsgBox Replace ("A, B, C, A, B, C, A, B, C", ",", ",")"Rezultat je:" ABCABCABC "MsgBox Replace ("ABCABCABC", "ABC", "!")"Rezultat je:" !!! "MsgBox Replace ("ABCABCABC", "ABc", "!")"Rezultat je:" ABCABCABC "MsgBox Replace ("ABCABCABC", "ZBC", "!")"Rezultat je:" ABCABCABC "End Sub

VBA Zamenjaj začetni položaj

Funkcijo VBA Replace lahko uporabite za zamenjavo katerega koli najdenega podniz, v vsakem najdenem delu. Če določimo začetni položaj, bi bil rezultat del prvotnega niza po tem izhodišču.

12345678910111213

Sub ReplaceExample_2 ()MsgBox Replace ("ABCABCABC", "A", "123") "Rezultat je:" 123BC123BC123BC "MsgBox Replace ("ABCABCABC", "A", "123", 2) "Rezultat je:" BC123BC123BC "MsgBox Replace ("ABCABCABC", "A", "123", 7) "Rezultat je:" 123BC "MsgBox Replace ("ABCABCABC", "A", "123", 8) "Rezultat je:" BC "MsgBox Replace ("ABCABCABC", "ABC", "!@") 'Rezultat je: "!@!@!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 2) "Rezultat je:" BC!@!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 6) "Rezultat je:" C!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 7) "Rezultat je:"!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 8) "Rezultat je:" BC "End Sub

VBA zamenja samo nekaj dogodkov

Funkcijo VBA Replace lahko uporabite za zamenjavo katerega koli najdenega podniz, v vsakem njegovem delu. Po izbiri se lahko odločimo, koliko dogodkov je treba nadomestiti.

123456789101112

Sub ReplaceExample_3 ()MsgBox Replace ("ABCABCABC", "A", "12") "Rezultat je:" 12BC12BC12BC "MsgBox Replace ("ABCABCABC", "A", "12",, 1) "Rezultat je:" 12BCABCABC "MsgBox Replace ("ABCABCABC", "A", "12",, 2) "Rezultat je:" 12BC12BCABC "MsgBox Replace ("ABCABCABC", "A", "12",, 3) "Rezultat je:" 12BC12BC12BC "MsgBox Replace ("ABCABCABC", "A", "12",, 5) "Rezultat je:" 12BC12BC12BC "MsgBox Replace ("ABCABCABC", "A", "12", 3, 1)"Rezultat je:" C12BCABC "'A smo zamenjali z 12, 1 -krat, začenši s položaja 3 prvotnega niza.End Sub

VBA Zamenjaj občutljivost velikih in malih črk

Funkcija zamenjave VBA privzeto razlikuje velike in male črke. To vedenje lahko z neobveznim parametrom spremenite na velike in male črke (vbTextCompare). V tem primeru morate določiti tudi začetni položaj iskanja.

12345678910111213

Sub ReplaceExample_4 ()MsgBox Replace ("ABcABCABc", "ABc", "12")"Rezultat je:" 12ABC12 "MsgBox Replace ("ABcABCABc", "ABc", "12",,, vbTextCompare)"Rezultat je:" 121212 ""Ko uporabljamo vbTextCompare, moramo dodati še 2 izbirna argumenta:'začni in štejMsgBox Replace ("ABcABCABcABc", "ABc", "12", 3, 1)"Rezultat je:" cABC12ABc "'Začel s položaja 3 in samo enkrat zamenjal ABC.End Sub

Izvedete lahko tudi Zamenjavo, ki ne razlikuje med velikimi in malimi črkami, tako da na vrh modula dodate možnost Primerjaj besedilo:

1	Možnost Primerjaj besedilo

VBA Zamenjaj dvojne narekovaje

Funkcija VBA Replace lahko nadomesti znak dvojnih narekovajev, ki se uporablja za razmejitev začetka in konca niza.

Funkcija VBA Chr lahko vrne znak iz njegove številke v nizu znakov.

1	MsgBox Chr (34) 'Rezultat je: "

Or

1	MsgBox Chr (64) 'Rezultat je: @

V funkciji VBA Replace lahko uporabite dvojne narekovaje z uporabo “” ”” ali funkcijo VBA Chr (34).

12345678910111213

Sub ReplaceExample_5 ()Dim StrEx kot nizStrEx = "AB" "AB" ""Rezultat MsgBox StrEx je: AB "AB"MsgBox Replace (StrEx, Chr (34), "12")"Rezultat je: AB12AB12MsgBox Replace (StrEx, "" "", "DQ")"Rezultat je:" ABDQABDQ "End Sub

VBA Replace Break Line v celici

Funkcija VBA Replace lahko v celici najde poseben znak prelomne črte in ga odstrani ali nadomesti s presledkom. Poseben znak prelomne vrstice lahko vnesete v celico s pomočjo bližnjice na tipkovnici Alt+Enter in ga lahko uporabite v kodi VBA s številko nabora znakov s funkcijo VBA Chr (10).

1234567891011121314

Sub ReplaceExample_6 ()Dim StrEx As String 'Določite spremenljivko niza'Preberite vrednost celice A2 na listu delovnega lista1StrEx = Ta delovna knjiga. Delovni listi ("List1"). Obseg ("A2"). Vrednost'Znak prelomne črte, vnesen z Alt+Enter, je Chr (10) in je neviden.'Ta kodna vrstica nadomesti ta znak s presledkomStrEx = Zamenjaj (StrEx, Chr (10), "")'Zamenjano vrednost vnesite v celico B2 v list delovnega lista1ThisWorkbook.Worksheets ("Sheet1"). Range ("B2"). Value = StrExEnd Sub