Hogyan lehet gyorsan felosztani a szöveges karakterláncokat esetenként az Excelben?
Az Excelben a szöveget általában rögzített szélességgel vagy elválasztóval osztjuk fel a Szöveg oszlopok funkcióval, de megpróbálta már felosztani a szöveget nagy- és kisbetűkkel? Például van egy listája adatokból, és az eset alapján két oszlopra kell felosztania őket: az egyik oszlop kisbetűs, a másik pedig a nagybetűs karakterláncot tartalmazza, ahogy az alábbi képernyőképen látható. A Szöveg oszlopokba funkció nem támogatja ezt a műveletet, azonban bemutathatok egy trükköt, amellyel gyorsan feloszthatja a szöveget az Excelben.
Szöveg felosztása esetenként a VBA segítségével
Szöveg felosztása sorokra/oszlopokra elválasztóval a Kutools for Excel segítségével
Szöveg felosztása esetenként a VBA segítségével
Az Excel programban csak makrókód van a karakterlánc gyors felosztásához kis- és nagybetűk alapján.
1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a kód alatt az üresbe Modulok szkripteket.
VBA: Húr szétválasztása esetenként.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. nyomja meg F5 gombot, és megjelenik egy párbeszédpanel, amely emlékezteti Önt a felosztandó szövegek kiválasztására. Lásd a képernyőképet:
4. kettyenés OK, és a kiválasztott szövegek két oszlopra vannak osztva, az egyik kisbetűket, a másik nagybetűket tartalmaz.
Szöveg felosztása sorokra/oszlopokra elválasztóval a Kutools for Excel segítségével
Sok esetben érdemes egy cellát több sorra vagy oszlopra osztani egy adott karakter alapján. Az Excelben a beépített Szöveg oszlopokba funkció csak a cellák oszlopokká történő átalakításában segíthet, a sorok konvertálásában viszont nem. Azonban azzal Kutools az Excel számára - praktikus és hasznos eszköz, alkalmazhatja Hasított sejtek segédprogram a karakterlánc gyors felosztására sorokra vagy oszlopokra elválasztó vagy rögzített szélesség alapján.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:
1. Válassza ki a felosztani kívánt cellát, majd kattintson a gombra Kutools > Egyesítés és felosztás > Hasított sejtek. Lásd a képernyőképet:
2. Ban,-ben Hasított sejtek párbeszédpanelen ellenőrizze a kívánt felosztási típust a típus szakaszban, és keresse meg a kívánt elválasztót, amely alapján fel akar osztani a Felosztva szakasz. Lásd a képernyőképet:
3. kettyenés Ok, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy válasszon egy cellát az osztott tartalom elhelyezéséhez. Lásd a képernyőképet:
4. A kiválasztás után kattintson a gombra OK, és a kijelölt cella a hely alapján sorokra lett felosztva. Lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!