Cancella contenuto di una colonna

Question

Come si eliminerebbe il contenuto di una colonna dalla cella A3 alla cella __ dove __ rappresenta l'ultima voce nella colonna (presupponendo che non vi siano spazi vuoti tra le voci).

Grazie per l'aiuto.

Answer 1

range("A3", columns("A").SpecialCells(xlCellTypeLastCell)).Delete 

Ciò eliminerà A3 dall'ultima cella nella colonna A, indipendentemente dagli spazi vuoti nella colonna.

range("A3", range("A3").End(xlDown)).Delete 

Questo eliminerà da A3 fino alla prima cella vuota dopo A3 nella colonna A.

Answer 2

Range("A3", Range("A3").End(xlDown)).Clear 

Utilizzando .Delete sarà effettivamente eliminare le cellule, spostando eventuali cellule che potrebbero apparire dopo questa lista (separato da una cella vuota). Se si desidera solo cancellare i contenuti, .Clear è un buon modo per andare.

Answer 3

Vorrei utilizzare un vbNullString, perché è leggermente più veloce e funziona in modo efficiente su enormi quantità di fogli di lavoro di dati.

Incolla 'nulla' da A3 alla prima cella vuota nella colonna A:

Range(Cells(1,3), Cells(Range("A3").End(xlDown).Row,1)).Value = vbNullString 

Incolla 'nulla' da A3 a l'ultima cella nella colonna A:

Range(Cells(1,3), Cells(Range("A3").SpecialCells(xlTypeLastCell),1)).Value = vbNullString 

Answer 4

ho avuto buoni risultati con questo:

Set tbl = ActiveSheet.ListObjects("Table_Name") 
Count = tbl.DataBodyRange.Rows.Count 

Range("AC2:AC" + CStr(Count)).Select 
Selection.ClearContents