Excel'de belirli satırları seçin ve metin dosyasından silin

Bunları silmek için Excel'de birçok satır seçmek istiyorum ve bunu elle yapmak tam anlamıyla saatler alıyor. Her satırda bir sayı ile bir .txt dosyasında belirli satır numaraları var. Bunun gibi, böyle:

Excel'e bu satırları otomatik olarak seçmesini / silmesini söylemenin güzel bir yolu var mı?

Örnek:

microsoft-excel vba

— Aphex
kaynak

Bir satırı silmek için yerine getirilmesi gereken koşul nedir?

— Eric F,

Mantıklı bir durum yok. Görünüşe göre rastgele satırlarla, satır artık bizimle çalışmayan belirli bir satıcı nedeniyle siliniyor. Bu yüzden bir metin dosyasında belirli satırlara (örnekte olduğu gibi 1, 5, 8, 9) sahip ve bu satırları seçmeli / silmeliyim.

— Aphex

Satırları seçmek, sağ tıklamak ve sil'i seçmek excel'deki satırları silmek için en hızlı yoldur. Sözde VBA'yı kullanabilirsiniz, ancak hız artışı olmazdı.

— Eric F

Aynı satıcı için birden fazla satır silmek istiyorsanız, o zaman bu farklı bir hikaye ve tüm olayları bulmak için VBA'yı kullanabilirsiniz.

— Eric F

Diyelim ki 2000 satır veri içeren bir dökümanım var ve bunların 500 tanesini rastgele yerlerde silmem gerekiyor - daha fazla değilse kolayca 20-30 dakika sürebilir. Her nasılsa, belirli satırları seçerek ayrı bir metin dosyasında örneğin bir VBA komut dosyası çalıştırabilirsem, çalışma anlarından bahsediyoruz. Kutools'un kullanımda olup olmadığını biliyor musunuz?

— Aphex

İşte size VBA tarafında işlerin başlaması için bir örnek. Satıcı ve Dosya konumu olmak üzere iki alana sahip bir çalışma kitabı oluşturdum. Ayrıca metin dosyasını açacak ve satıcının numarasını = satıcının numarasını, sonunda bir satır başı ile değiştirecek ve hiçbir şeyi ile değiştirmeyecek bir VBA alt yordamı oluşturdum:

Sub Remove_line_item()
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
myFile = Range("B2").Value
myFile = Application.GetOpenFilename()
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
text = text & textline
Loop
text = Replace(text, Range("A2").Value & ChrW(14), "")

myFile.Write text
myFile.Close
End Sub

Bir seferde sadece bir dosya yolu kullandım, ancak bir adım daha ileri gidebilir ve bir dizindeki tüm metin dosyalarını da inceleyebilirsiniz. Umarım bu sizin için iyi bir başlangıç olabilir.

— Eric F
kaynak