Excel - Belirli bir hücre değerini silmek için bir makro

Konu

VBA komut dosyasını kullanarak excel'deki belirli hücre kümesindeki değeri silme gereksinimim var.

Örneğin: d3: d4, e3: e4, g3: g4, h3: h4'i silmem gerekiyor

ve diğer bir takım d9: d11, e9: e11, g9: g11, h9: h11'dir.

 alt silme Bu şekilde çalışıyorum sayfaları ("sayfa1"). aralık ("d3: e4) .seçim.clearcontents sayfaları (" sayfa1 "). aralık (" g3: h4) .seçimi.clearcontents. . . . son alt 

Ancak bu şekilde fazlalık görülür. Birisi daha iyi bir kod yazarken bana yardımcı olabilir misiniz?

Çözüm

Ortak bir rutin oluşturun ve bu rutini çağırın

 'rowToClearStarting: temizlenmesi gereken aralıktaki ilk satır' rowToClearEnding: temizlenmesi gereken aralıktaki son satır 'Örnek Çağrısı: clearContents (4, 6) Genel Alt clearContents (rowToClearStarting Long, rowToClearEnding Uzun) Sayfalar ( "sheet1"). Range ("d" & rowToClearStarting & ": d" & rowToClearEnding) .clearContents Sheets ("sheet1"). Range ("e" & rowToClearStarting & ": e" & rowToClearEnding) .clearContents Sayfaları ("sheet1 ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .clearContents Sheets (" sheet1 "). Range (" h "& rowToClearStarting &": h "ve rowToClearEnding) .clearContents End Sub 

Bu ipucu için Rrizvisa1'e teşekkür ederiz.