Fråga : Alla makroen som görar klar, ror nedanfört den sist cellen av data

Den pröva förmiddagen för makro I att skriva ska snirkeln till den nedanföra ro den sist cellen med data i kolonn B och görar klar därefter alla ror från det pekar besegrar till bottnen.

For example, om jumbon värderar, är ror in 15, det ska fri alla nöjt kolonnerna från ror sammanlagt 16 till jumbon ror i spreadsheet.
Thanks! > för 
1:
2:
3:
4:
5:
6:
7:
" codeBody " " >Sheets för class= " för
" klar "

Svar : Alla makroen som görar klar, ror nedanfört den sist cellen av data

Detta kodifierar den ska byten ror snabbt, utan att kretsa

Jubel

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

Underbyte ()
    Dunkel rng1 som spänner
    Täcker (”formaterade Actuals”). Valt
    Uppsättning rng1 = celler (Rows.Count, ”B”). Avsluta (xlUp). Offset (1, 0)
    Uppsättningen rng1 = spänner (rng1, rng1.End (xlDown))
    rng1.EntireRow.ClearContents
Avsluta suben
Andra lösningar  
 
programming4us programming4us