Dosya adını Excel'de tam yoldan hızlı bir şekilde nasıl çıkarabilirim?
Dosya yollarının bir listesini içeren bir çalışma sayfanız olduğunu varsayarsak, şimdi aşağıda gösterilen ekran görüntüleri gibi her yoldan sadece dosya adını (son ters eğik çizginin sağ kısmı) çıkarmak istiyorsunuz. Bu görevin üstesinden gelmek için herhangi bir hızlı numara var mı?
Excel'deki formülle dosya adını tam yoldan çıkarın
Kullanıcı Tanımlı İşlev ile tam yoldan dosya adını çıkarın
VBA kodu ile dosya adını tam yoldan ayıklayın
Excel'deki formülle dosya adını tam yoldan çıkarın
Excel'de, yalnızca dosya adını tam yoldan hızlı bir şekilde çıkarmak için aşağıdaki formülü kullanabilirsiniz.
Boş bir hücre seçin, aşağıdaki formülü içine girin ve ardından Keşfet tuşuna basın.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
İpuçları: A1, dosya adını çıkarmak istediğiniz hücredir) ve Enter düğmesine basın, ardından istediğiniz aralığı doldurmak için dolgu tutamacını sürükleyin. Bundan sonra, dosya adı her hücreden çıkarılır.
Kullanıcı Tanımlı İşlev ile tam yoldan dosya adını çıkarın
Aşağıdaki Kullanıcı Tanımlı İşlev ile dosya adını kolay ve hızlı bir şekilde alabilirsiniz.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function
3. Basın Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic penceresini açın ve çalışma sayfasına geri dönün. Örneğin B1 boş bir hücrede, aşağıdaki formülü içine girin ve Keşfet tuşuna basın.
=FunctionGetFileName(A1)
Ardından B1 hücresini tekrar seçin, doldurma tutamacını bu formülü uygulamak istediğiniz aralığa sürükleyin ve aşağıdaki sonuç olarak tüm dosya adları tam yollardan çıkarılmıştır:
VBA kodu ile dosya adını tam yoldan ayıklayın
Kullanıcı Tanımlı İşlevin yanı sıra, bir VBA kodu da dosya adlarını çıkarmanıza yardımcı olabilir. Lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic Penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.
Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
splitList = VBA.Split(Rng.Value, "\")
Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve dosya adını çıkarmak istediğiniz aralığı seçin, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OKdosya adları aşağıdaki gibi seçimden çıkarılmıştır:
not: Bu VBA kodu ile orijinal veriler imha edilecek, bu nedenle bu kodu uygulamadan önce bir tane kopyalamanız gerekir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
