Очистить содержимое столбца

Question

Как очистить содержимое столбца от ячейки A3 до ячейки __, где __ представляет последнюю запись в столбце (при условии, что между записями нет пустых пробелов).

Спасибо за помощь.

Answer 1

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

Это удалит A3 через последнюю ячейку в столбце A, независимо от пробелов в столбце.

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

Это удалит из A3 до первой пустой ячейки после A3 в столбце A.

Answer 2

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

Использование .Delete фактически удалит ячейки, сдвинув все ячейки, которые могут появиться после этого списка (разделенные пустой ячейкой). Если вы просто хотите очистить содержимое, хороший способ сделать это .Clear.

Answer 3

Я бы использовал vbNullString, потому что он немного быстрее и эффективно работает с огромным количеством рабочих таблиц данных.

Вставьте 'ничто' из A3 в первую пустую ячейку в столбце A:

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

Вставьте 'ничто' из A3 в последнюю ячейку в столбце A:

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

Answer 4

У меня были хорошие результаты с этим:

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

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