Note: The other languages of the website are Google-translated. Back to English

Excel'deki başlık değerine göre tüm sütunları nasıl silebilirim?

Çoğu durumda, Excel'deki başlık değerine bağlı olarak tüm sütunları silmeniz gerekebilir. Örneğin, başlıkta "eski" değerini içeren tüm sütunları silmeniz gerekir. Bu eğiticide, ayrıntılardaki başlık değerine dayalı olarak tüm sütunları silme yöntemlerini göstereceğiz.

VBA kodu ile başlık değerine göre tüm sütunları silin
Kutools for Excel ile başlık değerine dayalı tüm sütunları silin


VBA kodu ile başlık değerine göre tüm sütunları silin

VBA kodu ile başlık değerine göre tüm sütunları silebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulaması pencere.

2. içinde Microsoft Visual Basic Uygulaması Pencere, tıklayın Ekle > modül. Ardından aşağıdaki kodu kopyalayıp Modül penceresine yapıştırın.

VBA kodu: başlık değerine göre tüm sütunları silin

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

notlar:

1) kodda, "eski”, Temel alınarak tüm sütunu silmek istediğiniz başlık değeridir. Lütfen başlık değerinizi manuel olarak değiştirin. Ve A1: D1 kullanmak istediğiniz sütun aralığıdır.
2) Bu kod büyük/küçük harf duyarlıdır.

3. Tuşuna basın. F5 Kodu çalıştırmak için anahtar, belirtilen metne eşit bir başlığa sahip tüm sütun hemen silinecektir.


Kutools for Excel ile başlık değerine dayalı tüm sütunları silin

İle Kutools for Excel'S Belirli Hücreleri Seçin yardımcı programda, önce belirli başlık değerini içeren tüm sütunları kolayca seçebilir ve ardından bu seçilen sütunları bir kerede silebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Silmeniz gereken sütunları içeren aralığı seçin ve ardından Kutools > seçmek > Belirli Hücreleri Seçin. Ekran görüntüsüne bakın:

2. içinde Belirli Hücreleri Seçin iletişim kutusunu seçin. Tüm sütun seçeneği Seçim türü bölümünde ve Belirli tür açılan listeden eşittir seçeneği, ardından aşağıdaki kutuya başlık değerini yazın. Ve son olarak tıklayın OK buton. Ekran görüntüsüne bakın:

3. Tıklayın OK düğmesini başka bir açılır iletişim kutusunda, ardından belirtilen başlık değerini içeren sütunlar hemen seçilir.

4. Seçili sütunun sütun başlığına sağ tıklayın ve ardından Sil sağ tıklama menüsünden. Ardından, seçilen tüm sütunlar bir defada silinir.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (12)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu süper basit görünüyorsa üzgünüm ama bu benim ilk kez vba'yı deniyorum. Bunu kullanarak, birden çok sütun başlığını silmek için nasıl uygularım. Aslında yalnızca belirli başlık sütunlarını tutmaya ve değişen bir listenin geri kalanını silmeye çalışıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk kodda sadece 4. satırı kopyalayın ve "eski" yi ikinci sütun adına değiştirin ve işe yarayacaktır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey! Bu, aynı başlığa sahip iki bitişik sütununuz olana kadar iyi çalışır. Aralığınızın A1:A5 olduğunu ve A2 ve A3'ün 'eski' başlığına sahip olduğunu söyleyin. A2'yi silecek, ancak daha sonra A3, A2'nin işgal ettiği yere gidecek ve kod, menzilindeki bir sonraki hücre olan yeni A3'e bakacağı için onu atlayacak.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba İlyas,
Bahsettiğiniz gibi, A2 ve A3 aynı "eski" başlığa sahiptir. Ancak aynı sütundalar, kodu uyguladıktan sonra A sütununun tamamı hemen kaldırılacak.
Amacını anladığımdan emin değilim. Yapmaya çalıştığın şeyin ekran görüntüsünü verebilirsen iyi olur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bunu birden çok sütun adıyla yapmak mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mark,
Aşağıdaki kodu deneyin. Sekizinci satırda, lütfen her sütun adını çift tırnak içine alın ve virgülle ayırın. Umarım yardımcı olabilirim. Teşekkür ederim.

Alt SilSpecifcColumn()

xFNum, xFFNum, xCount Tamsayı Olarak Karartın

xStr'yi Dize Olarak Kıs

Dim xArrName Varyant Olarak

Dim MR, xRg Aralık Olarak

On Error Resume Next

MR = Aralık Ayarla("A1:N1")

xArrName = Array("eski", "yeni", "get") 'her sütun adını çift tırnak içine alın ve virgülle ayırın

xSayı = MR.Sayı

xStr = xArrName(xFNum)

xFFNum için = xCount To 1 Adım -1

xRg = Hücreler (1, xFFNum) ayarla

xFNum = 0 için UBound(xArrName) için

xStr = xArrName(xFNum)

xRg.Value = xStr ise, xRg.EntireColumn.Delete

Sonraki xFNum

Sonraki

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodun çalışması için 12. satırın değiştirilmesi gerektiğini düşünüyorum. Orijinal satır 12 "xRg = Hücreleri Ayarla(1, xFFNum)" değiştirilmiş satır 12 "xRg = MR(1, xFFNum) Ayarla"
Alt SilSpecifcColumn()
xFNum, xFFNum, xCount Tamsayı Olarak Karartın
xStr'yi Dize Olarak Kıs
Dim xArrName Varyant Olarak
Dim MR, xRg Aralık Olarak
On Error Resume Next
MR = Aralık Ayarla("A1:N1")
xArrName = Array("eski", "yeni", "get") 'her sütun adını çift tırnak içine alın ve virgülle ayırın
xSayı = MR.Sayı
xStr = xArrName(xFNum)
xFFNum için = xCount To 1 Adım -1
xRg = MR(1, xFFNum) olarak ayarla
xFNum = 0 için UBound(xArrName) için
xStr = xArrName(xFNum)
xRg.Value = xStr ise, xRg.EntireColumn.Delete
Sonraki xFNum
Sonraki
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Başlıklar 4. sıradan başlıyorsa ne olur?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA örneği, kodun, başlıkları "eski" İÇERİR olan tüm sütunları sileceğini belirtir. Durum böyle değil. = operatörü yalnızca tam eşleşmeleri siler. LIKE operatörünü bir joker karakterle kullanmanız gerekir.
Sabit kod:Sub DeleteSpecifcColumn()
MR = Aralık Ayarla("A1:D1")
MR'deki Her Hücre İçin
Eğer cell.Value "eski*" GİBİ ise, sonra cell.EntireColumn.Delete
Sonraki
End Sub

Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, düzeltmeniz ve paylaşımınız için teşekkür ederiz. 
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hola, tengo una hoja de excel con çeşitli veriler, digamos 4 sütun ve 12 filalar, bana en iyi paketler imprimir cada fila en un folio separado en un plantilla, es decir, tenemos una hoja con varios nomres ve apellidos ve telefono, tanquiero impárim Her zaman mükemmel bir şekilde çalışır. antemano'nun izniyle
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Çalışma sayfasındaki her satırı ayrı bir sayfada yazdırmak istiyorsanız, her satırda bir sayfa sonları eklemeniz ve ardından bunları yazdırmanız önerilir.
Bu makalede verilen yöntemler size bir iyilik yapabilir. Lütfen bir deneyin. Teşekkür ederim.
Excel'de Her X Satırda Sayfa Sonu Nasıl Eklenir?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır