Sut i rannu llinyn testun yn gyflym fesul achos yn Excel?
Yn Excel, rydym fel arfer yn rhannu testun yn ôl lled sefydlog neu amffinydd â swyddogaeth Testun i Golofnau, ond a ydych erioed wedi ceisio rhannu testun yn ôl uppercase a llythrennau bach? Er enghraifft, mae gennych restr o ddata, ac mae angen i chi eu rhannu'n ddwy golofn yn seiliedig ar yr achos: mae un golofn yn cynnwys llinyn llythrennau bach, ac mae'r llall yn cynnwys llinyn uchaf fel y dangosir isod y screenshot. Nid yw'r swyddogaeth Testun i Golofnau yn cefnogi'r gweithrediad hwn, fodd bynnag, gallaf gyflwyno triciau i rannu llinyn testun yn gyflym fesul achos yn Excel.
Rhannwch destun yn ôl achos gyda VBA
Rhannwch destun i resi / colofnau yn ôl gwahanydd gyda Kutools ar gyfer Excel
Rhannwch destun yn ôl achos gyda VBA
Yn Excel, dim ond macro cod sydd i rannu llinyn yn gyflym yn seiliedig ar lythrennau bach a phen uchaf.
1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan y cod i'r gwag Modiwlau sgript.
VBA: Hollti llinyn yn ôl achos.
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. Gwasgwch F5 allwedd, ac mae deialog yn galw allan i'ch atgoffa i ddewis testunau i'w hollti. Gweler y screenshot:
4. Cliciwch OK, ac mae'r testunau dethol wedi'u rhannu'n ddwy golofn, ac mae un yn cynnwys llythrennau bach, a'r llall yn cynnwys uwchgynhadledd.
Rhannwch destun i resi / colofnau yn ôl gwahanydd gyda Kutools ar gyfer Excel
Mewn llawer o achosion, efallai yr hoffech chi rannu cell yn sawl rhes neu golofn yn seiliedig ar gymeriad penodol. Yn Excel, gall y swyddogaeth Testun i Golofnau adeiledig yn unig eich helpu i drosi cell yn golofnau yn uniongyrchol, ond nid gweithio wrth drosi rhesi. Fodd bynnag, gyda Kutools ar gyfer Excel - offeryn defnyddiol a defnyddiol, gallwch gymhwyso ei Celloedd Hollt cyfleustodau i rannu llinyn yn gyflym yn rhesi neu golofn yn seiliedig ar wahanydd neu led sefydlog.
| Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:
1. Dewiswch y gell rydych chi am ei rhannu, a chlicio Kutools > Uno a Hollti > Celloedd Hollt. Gweler y screenshot:
2. Yn y Celloedd Hollt deialog, gwiriwch y math rhaniad rydych chi ei eisiau yn y math adran, ac ewch i wirio'r amffinydd penodol rydych chi am ei rannu yn seiliedig yn yr Wedi'i rannu gan adran. Gweler y screenshot:
3. Cliciwch Ok, mae deialog yn galw allan i'ch atgoffa i ddewis cell i osod y cynnwys hollt. Gweler y screenshot:
4. Ar ôl dewis, cliciwch OK, ac mae'r gell a ddewiswyd wedi'i rhannu'n resi yn seiliedig ar ofod. Gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
