Excel - Makro na odstránenie konkrétnej hodnoty bunky

Problém

Mám požiadavku na vymazanie hodnoty v konkrétnom súbore buniek v programe Excel pomocou skriptu VBA.

Napr .: Potrebujem vymazať d3: d4, e3: e4, g3: g4, h3: h4

a ďalší súbor d9: d11, e9: e11, g9: g11, h9: h11.

 vedľajšie mazanie Snažím sa týmto spôsobom list ("list1") rozsah ("d3: e4) .vyberte výber.jednotlivých listov (" list1 ") rozsah (" g3: h4) .vyberte výber.nastavenie jasu., , , koncová sub 

Ale týmto spôsobom je vidieť redundanciu. Môže mi niekto pomôcť pri písaní lepšieho kódu.

Riešenie

Vytvorte spoločnú rutinu a zavolajte ju

 'rowToClearStarting: prvý riadok v rozsahu, ktorý musí byť vymazaný' rowToClearEnding: posledný riadok v rozsahu, ktorý musí byť vymazaný 'Vzorový hovor: clearContents (4, 6) Public Sub clearContents (rowToClearStarting As Long, rowToClearEnding as long) Tabuľky ( "sheet1") Rozsah ("d" & rowToClearStarting & ": d" & rowToClearEnding) .clearContents Sheets ("sheet1") Rozsah ("e" & rowToClearStarting & ": e" & rowToClearEnding) .clearContents Sheets ("sheet1") ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .clearContents listy (" sheet1 ") Rozsah (" h "& rowToClearStarting &": h "& rowToClearEnding) .clearContents Koniec Sub 

Vďaka Rrizvisa1 za tento tip.