Excel - makro tietyn solun arvon poistamiseksi

Ongelma

Minulla on vaatimus poistaa arvo tietyissä soluissa Excelissä VBA-skriptiä käyttäen.

Esim. Minun täytyy poistaa d3: d4, e3: e4, g3: g4, h3: h4

ja toinen joukko d9: d11, e9: e11, g9: g11, h9: h11.

 ali poistaminen Yritän tällä tavalla arkkia ("sheet1") .alue ("d3: e4) .valitse valinta.clearcontents sheet (" sheet1 ") .alue (" g3: h4) .valitse valinta.clearcontents. . . . loppupää 

Mutta tällä tavoin nähdään irtisanominen. Voiko joku auttaa auttaessani parempaa koodia.

Ratkaisu

Luo yhteinen rutiini ja soita tähän rutiiniin

 'rowToClearStarting: ensimmäisen rivin alue, joka on puhdistettava' rowToClearEnding: viimeinen rivi alueella, joka on poistettava 'Näyte: clearContents (4, 6) Public Sub clearContents (rowToClearStarting Long, rowToClearEnding As Long) "sheet1".) Alue ("d" & rowToClearStarting & ": d" & rowToClearEnding). ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .clearContents Sheets (" sheet1 "). Range (" h "& rowToClearStarting &": h "& rowToClearEnding) .clearContents End Sub 

Kiitos Rrizvisalle1 tästä vinkistä .