Metin dosyasını excel tablosuna aktarırken maalesef sonunda istenmeyen virgülleri tuttu. Hücrelerdeki fazladan virgülleri kaldırmak gerçekten zorlaşıyor. Bunu manuel olarak düzeltmeye çalışıyorsanız, çok zaman alacaktır. Ancak makro kod ile çok daha kolay olacaktır.
Bu yazıda, istenmeyen virgüllerin nasıl kaldırılacağına ve gerekli yerlerde nasıl tutulacağına odaklanacağız. Daha sonraki aşamada herhangi bir hatadan kaçınmak ve aksi takdirde çok telaşlı olabilecek raporlar hazırlamak ve hiç kimse zamanını yeniden çalışmaya harcamak istememek için verilerinizi temizlemekle başlamak her zaman daha iyidir.
Verilerde gereksiz virgüller bulursanız, bunları TRIM, SUBSTITUTE, FIND, LEN, REPLACE gibi çeşitli işlevler sayesinde kaldırabilir veya BUL & DEĞİŞTİR (CTRL + H) tuşlarını kullanabilirsiniz. Bunları kaldırmak için birkaç yöntem arasından seçim yapabilirsiniz.
Bu yazıda, içe aktarılan CSV dosyalarından istenmeyen virgüllerin nasıl kaldırılacağına ve ardından VBA kodu ile temizlik tamamlandıktan sonra nasıl kaydedileceğine odaklanacağız.
Soru: Lütfen ekteki örnek txt dosyasına bakınız. 5. satırın son 8 karakterini silmek için bir vb koduna ihtiyacım var
Soru hakkında daha fazla bilgi için bu bağlantıya tıklayabilirsiniz
Not defteri dosyasının anlık görüntüsü aşağıdadır:
Satır # 5, "RX408282,20150630,,,,,,," içinde aşağıdaki metne sahiptir.
"RX408282,20150630" olması gerekirken" & aynı zamanda VBA kodu yukarıdaki 4 satırdaki virgülü silmemelidir.
Kodu almak için VB editörünü başlatmak için aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Aşağıdaki kodu standart modüle kopyalayın
Sub test() Dim fn As String, txt As String fn = Application.GetOpenFilename("TextFiles,*.txt") Eğer fn = "" ise Exit Sub txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn). ReadAll With CreateObject("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Değiştirin Açın(fn, ".txt", "_Clean.txt") Çıktı için #1 Olarak Yazdır # 1, .Replace(txt, "") Close #1 End With End Sub
Kod açıklaması:
- Yukarıdaki kod öncelikle bulunduğu dosyayı seçmenizi isteyecektir.
- Kod çalıştıktan sonra adında bir çıktı dosyası alıyoruz. Test_Temiz
- Kodun düzgün çalışıp çalışmadığını kontrol etmek için; .txt dosyasını açalım ve sonuçları görelim
- Son satırı görebiliriz, yani daha önce sonunda istenmeyen virgüllerin olduğu satır # 5 şimdi düzeltildi
Çözüm: Bu şekilde, belirtilen bir klasördeki fazladan virgülleri kaldırabilir ve ardından doğru verileri başka bir not defteri dosyasına kaydedebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın