Excel - makro konkreetse raku väärtuse kustutamiseks

Probleem

Mul on nõue kustutada väärtust Exceli teatud lahtrite komplektis VBA skripti abil.

Näiteks: ma pean kustutama d3: d4, e3: e4, g3: g4, h3: h4

ja teine ​​komplekt d9: d11, e9: e11, g9: g11, h9: h11.

 all kustutamist Proovin seda lehte ("sheet1"). vahemik ("d3: e4) .valige valik.clearcontents sheets (" sheet1 "). vahemik (" g3: h4) .valige valik.clearcontents. . . . lõpu alam 

Kuid sel viisil on näha koondamist. Kas mõni teine ​​aitab mul parema koodi kirjutamisel.

Lahendus

Looge ühine rutiin ja helistage sellele

 'rowToClearStarting: esimene rida vahemikus, mida tuleb kustutada' rowToClearEnding: viimane rida vahemikus, mida tuleb kustutada 'Proovikutsung: clearContents (4, 6) Avalik sub clearKontaktid (rowToClearStarting Long Long, rowToClearEnding As Long) "sheet1"). Range ("d" & rowToClearStarting & ": d" & rowToClearEnding). ClearContents Sheets ("sheet1"). Range ("e" & rowToClearStarting & ": e" & rowToClearEnding) .clearContents Sheets ("sheet1 ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .ClearContents Sheets (" sheet1 "). Range (" h "& rowToClearStarting &": h "& rowToClearEnding) .clearContents Lõpeta alam 

Tänu Rrizvisale1 selle näpunäite eest.