Šajā rakstā mēs izveidosim makro, lai norobežotu tekstu šūnā ar kolonnu vertikāli. Mēs varam norobežot tekstu šūnā, pamatojoties uz norobežotāju. Atdalītājs var būt komats, atstarpe, slīpsvītra utt.
Lai izskaidrotu makro darbību, mēs esam paņēmuši URL kā parauga tekstu šūnā A10. Makro var izpildīt, noklikšķinot uz pogas “Iesniegt”.
Pēc makro izpildes tas atgriezīs izvadi nākamajā kolonnā. Šūnas teksta vērtība ir atdalīta no vairākām apakšvirknēm vairākās šūnās otrajā kolonnā.
Loģisks skaidrojums
Mēs esam izveidojuši makro “teksta kolonnas”, kas veic divus uzdevumus. Pirmkārt, tā norobežo virkni A10 vairākās apakšvirknēs, pamatojoties uz norobežotāju. Šajā piemērā mēs esam izmantojuši domuzīmi (-) kā norobežotāju. Otrkārt, tas šķērso ģenerētās apakšvirknes no vairākām kolonnām uz vienu kolonnu.
Koda skaidrojums
Rng.textto kolonnu galamērķis: = Rng. Offset (0, 1), DataType: = xlDelimited, _
TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _
:="-"
Iepriekš minētais kods tiek izmantots, lai norobežotu virkni diapazonā “Rng”. Galamērķis norāda atrašanās vietas diapazonu, kurā tiks parādīta izeja. DataType norāda izmantotā norobežotāja veidu. TextQualifier norāda rakstzīmi, kas tiek izmantota teksta kvalifikācijai. OtherChar norāda rakstzīmi, ko izmanto kā norobežotāju.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub texttocolumns () 'Mainīgo deklarēšana Dim StartRow, i, LastCol As Long Dim Rng As Range' atspējo displeja brīdinājumus uz norobežotāja Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _ TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _: = "-" 'Kolonnas atrašana šūnu skaits, kas satur pēdējo virkni pēc norobežošanas LastCol = Rng.End (xlToRight). Kolonna 'sakārto tekstu kolonnās rindās For i = 2 To LastCol Cells (10, i). Cut Cells (StartRow, 2) StartRow = StartRow + 1 Nākamais i Beigt apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē