Sut i wyrdroi enw parth trwy nodiant yn Excel?
Weithiau, efallai y byddwch chi'n dod ar draws swydd ar wyrdroi'r enw parth trwy nodiant fel y dangosir isod, a oes gennych chi unrhyw driciau i'w ddatrys yn gyflym? Yn yr erthygl hon, rwy'n cyflwyno dau ddull i'w drin yn gyflym.
Gwrthdroi enw parth trwy nodiant gyda VBA
Llinyn gwrthdroi gan wahanydd gyda Gorchymyn Testun Gwrthdroi
Gwrthdroi enw parth trwy nodiant gyda VBA
Dyma god macro a all eich helpu chi, gwnewch fel a ganlyn yn Excel:
1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, copïo a gludo'r cod i'r sgript wag.
VBA: Gwrthdroi enw parth trwy nodiant
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. Gwasgwch F5 allwedd, mae deialog yn galw allan i'ch atgoffa i ddewis ystod i weithio.
4. Cliciwch OK.
Llinyn gwrthdroi gan wahanydd gyda Gorchymyn Testun Gwrthdroi
Os oes gennych Kutools ar gyfer Excel , gall y Gwrthdroi Testun Gorchymyn nodwedd eich helpu i wrthdroi llinyn yn ôl yr angen.
Kutools ar gyfer Excel, gyda mwy na 120 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. | ||
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod: (Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)
1. Dewiswch y llinyn rydych chi'n ei ddefnyddio, cliciwch Kutools > Testun > Gorchymyn Testun Gwrthdroi.
2. Yn y Testun Gwrthdroi deialog, dewiswch un opsiwn y mae angen i chi wyrdroi testun yn seiliedig arno.
3. Cliciwch Ok, ac mae'r tannau testun wedi'u gwrthdroi.
Demo
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!