Sut i dynnu estyniad ffeil o'r daflen waith?
Os oes gennych golofn o enwau ffeiliau sy'n cynnwys estyniadau ffeiliau, ac yn awr, yr hoffech gael yr estyniadau ffeil yn unig o'r celloedd at ryw bwrpas. Bydd eu tynnu fesul un â llaw yn rhy ddiflino, heddiw, byddaf yn cyflwyno rhai triciau hawdd ichi i'w gwblhau.
Tynnwch estyniad ffeil o'r daflen waith gyda fformiwla
Tynnwch estyniad ffeil o'r daflen waith gyda Swyddogaeth Diffiniedig Defnyddiwr
Tynnwch estyniad ffeil o'r daflen waith gyda fformiwla
I echdynnu'r estyniadau ffeil o'r celloedd, gall y fformiwla ganlynol wneud ffafr i chi.
1. Rhowch y fformiwla hon:
= LLEIHAU (DDE (A2,5), 1, CHWILIO (".", DDE (A2,5)), "") i mewn i gell wag ar wahân i'ch data. Gweler y screenshot:
2. Yna llusgwch y ddolen llenwi i'r ystod rydych chi am ei chynnwys yn y fformiwla hon, ac mae'r holl estyniadau ffeil wedi'u tynnu o'r celloedd, gweler y screenshot:
Tynnwch estyniad ffeil o'r daflen waith gyda Swyddogaeth Diffiniedig Defnyddiwr
Gall ffordd arall hefyd eich helpu i orffen y swydd hon, i wneud Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr.
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnu estyniadau ffeil o'r daflen waith
Function FileExt(FileName As String) As String
'Update 20141111
On Error Resume Next
If InStrRev(FileName, ".") > 0 Then FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
If Err <> 0 Then MsgBox Err.Description, vbCritical, "Kutools for Excel"
End Function
3. Yna arbed a chau'r cod hwn, dychwelyd i'r daflen waith, a nodi'r fformiwla hon = FileExt (A2) i mewn i gell wag wrth ymyl eich data, gweler y screenshot:
4. Ac yna llusgwch y ddolen llenwi i'r ystod rydych chi am ei chynnwys yn y fformiwla hon, ac mae'r holl estyniadau ffeil wedi'u tynnu o golofn A, gweler y screenshot:
Tip: Yn y fformwlâu uchod, mae A2 yn nodi'r gell rydych chi am dynnu estyniad ohoni.
Erthyglau cysylltiedig:
Sut i ddychwelyd enw ffeil heb ei estyn i'r gell?
Sut i dynnu enw ffeil yn gyflym o'r llwybr llawn yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
