Excel - makronaredba za brisanje određene vrijednosti ćelije

Problem

Imam zahtjev za brisanje vrijednosti u određenom skupu stanica u Excel koristeći VBA skriptu.

Npr: Trebam izbrisati d3: d4, e3: e4, g3: g4, h3: h4

i drugi skup d9: d11, e9: e11, g9: g11, h9: h11.

 Podbrisati Pokušavam na taj način listove ("sheet1"). raspon ("d3: e4) .izabrati odabir.clearcontents listova (" sheet1 "). raspon (" g3: h4) .izabrati odabir.crki sadržaj., , , kraj sub 

Ali na taj se način vidi suvišnost. Može li netko ugoditi pomoć mene u pisanom obliku bolje kod.

Riješenje

Stvorite uobičajenu rutinu i nazovite tu rutinu

 'rowToClearStarting: prvi red u rasponu koji treba izbrisati' rowToClearEnding: posljednji redak u rasponu koji treba biti izbrisan 'Primjer poziva: clearContents (4, 6) Javni sub clearContents (rowToClearStarting As Long, rowToClearEnding As Long) "sheet1"). Raspon ("d" & rowToClearStarting & ": d" & rowToClearEnding) .clearContents Sheets ("sheet1"). Raspon ("e" & rowToClearStarting & ": e" & rowToClearEnding) .clearContents Sheets ("sheet1" "" .Range ("g" & rowToClearStarting & ": g" & rowToClearEnding) .clearContents Sheets ("sheet1"). Domet ("h" & rowToClearStarting & ": h" & rowToClearEnding) .clearContents End Sub 

Zahvaljujući Rrizvisa1 za ovaj savjet.