MacroFacili: Cancella all'esterno dell'area utilizata

Una macro utile per "ripulire" i file da parti non necessarie: cancella eventuali righe e colonne bianche, ma comunque salvate e che appensatiscono il file, all'esterno dell'area selezionata

Sub CancellaAreaInutilizzata()

  ' il range utilizzato nel foglio
  Set UR = ActiveSheet.UsedRange
  ' il range delle celle selezionate
  Set Area = Selection

  ' trova la riga iniziale e finale dell'area da cancellare
  Ri = Area.Rows.Count + Area.Row
  Rf = UR.Rows.Count + UR.Row - 1

  ' trova la colonna iniziale e finale dell'area da cancellare
  Ci = Area.Columns.Count + Area.Column
  Cf = UR.Columns.Count + UR.Column - 1

  If (Ri <= Rf) Then
    ' seleziona e cancella le righe
    Range(Rows(Ri), Rows(Rf)).Select
    Selection.Delete Shift:=xlUp
  End If

  If (Ci <= Cf) Then
    ' seleziona e cancella le colonne
    Range(Columns(Ci), Columns(Cf)).Select
    Selection.Delete Shift:=xlToLeft
  End If

  Range(Area.Address).Select

End Sub

L'esempio completo é scaricabile da questo link: Es178.xlsm (a questo link le info per attivare le macro se risultano bloccate), il modulo VBA con le funzioni da questo link: Es182.bas

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.