Vraag : Macro om alle rijen onder de laatste cel van gegevens te ontruimen

De macro zal ik probeer te schrijven aan de rij onder de laatste cel met gegevens in kolom B, scrollen en zal neer alle rijen van dat punt aan de bodem dan ontruimen.

bijvoorbeeld, als de laatste waarde in rij 15 is, zal het al inhoud in alle kolommen van rij 16 aan de laatste rij in spreadsheet.

Thanks ontruimen!
" codeBody " 
1:
2:
3:
4:
5:
6:
7:

Sheets („Geformatteerde Actuals“). Selecteer
    Waaier („B4“). Selecteer
    Selection.End (xlDown). Selecteer
    ActiveCell.Offset (1, 0). Rijen („1: 64732“) .EntireRow.Select
    ActiveCell.Offset (1, 0). Waaier („A1“). Activeer
    Selection.ClearContents
    Waaier („A1: J1“). Selecteer

Antwoord : Macro om alle rijen onder de laatste cel van gegevens te ontruimen

Deze code zal snel de rijen zonder het van een lus voorzien doden

Juicht toe

Dave
1:
2:
3:
4:
5:
6:
7:

Sub Doden ()
    Schemerige rng1 als Waaier
    Bladen („Geformatteerde Actuals“). Selecteer
    Plaats rng1 = Cellen (Rows.Count, „B“). Eind (xlUp). Compensatie (1, 0)
    Reeks rng1 = Waaier (rng1, rng1.End (xlDown))
    rng1.EntireRow.ClearContents
Sub van het eind
Andere oplossingen  
 
programming4us programming4us