Форматирование чисел не работает, как ожидалось

Question

Я новичок в VBA-Excel и в настоящее время сталкиваюсь с проблемой форматирования чисел. Каждый раз, когда я запускаю этот код, весь лист становится текстом независимо от того, что я делаю, я хочу сохранить оставшуюся часть листа «Общие», но изменить столбец «А» на текст.

Для

      Columns("A").Select _
      ActiveCell.NumberFormat = "@"

Я пытался написать это несколькими разными способами, я пытался

 Range("A:A").Select
 Selection.NumberFormat = "@"

Я попытался написать ее для конкретной рабочей книги вместо того, чтобы позволить VBA принять активный лист и ячейки. Я даже пытался нумеровать другие столбцы для форматирования общего текста после выполнения форматирования в столбце A ...

    Columns("A").Select
Range("A1").Activate
Selection.Delete Shift:=xlToLeft


    Columns("A").Select
ActiveCell.NumberFormat = "@"
Range("A1").Select
ActiveSheet.Paste
Application.CommandBars("Office Clipboard").Visible = False

Я ожидал, что, если я поставлю еще одну строку после моего числового формата, я смогу получить столбец B: ZZ, чтобы все было General. Я не получил никаких сообщений об ошибках, пока просто не работает так, как должно. Заранее благодарю за любую помощь или советы.

Answer 1

Только что проверил, обе работают. Формулы, ссылающиеся на затронутые ячейки, не вычисляются, формулы, ссылающиеся на другие числовые ячейки, рассчитываются как обычно.

Range("A:A").NumberFormat="@"

Range("A1").EntireColumn.NumberFormat="@"