将列的格式更改为文本答案

【问题标题】：Change formatting of a column to text将列的格式更改为文本
【发布时间】：2019-10-09 02:50:08
【问题描述】：

每次我运行这段代码时，整个工作表都会变成文本。

我想保留工作表的其余部分 General，但将 A 列更改为 Text。

对于

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

我试过了

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

我尝试使用特定工作簿编写它，而不是让 VBA 假定活动工作表和单元格。

在 A 列运行格式化后，我尝试将其他列 NumberFormat 为 General。

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

我希望如果在我的 numberformat 之后再放一行，我就能将 B:ZZ 列全部设为 General。

我没有收到任何错误消息。

【问题讨论】：

请学习如何编写代码避免使用select.. 这么说，你可以简单地写Range("A:A").NumberFormat = "@"
How to avoid using select in Excel
@KenWhite 谢谢。我需要保存那个链接

标签： excel vba

【解决方案1】：

刚刚测试了这些，两者都有效。引用受影响单元格的公式不计算，引用其他数字单元格的公式正常计算。

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

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

【讨论】：