将数字保存为文本，如何自动化-Savingnumberastext,howtoautomateit

2  

If all your number are in a single column, the following code will do it:

如果您的所有号码都在一列中,则以下代码将执行此操作:

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'get the last row with data on Column A

For i = 1 To LastRow 'loop from row 1 to last
    ws.Cells(i, "A").Value = "'" & ws.Cells(i, "A").Value 'add the ' before the number
Next i
End Sub

Change the "A" to whichever column you are using.

将“A”更改为您使用的任何列。

1  

Non VBA answer; I'm using Column G in this answer but it depends on where your numbers are. You'll have to change the cell but I think you will be ok with this.

非VBA答案;我在这个答案中使用了G列,但这取决于你的数字在哪里。你必须改变细胞,但我想你会对此感到满意。

• In an empty cell, enter formula: ="'"&G4

在空单元格中,输入公式:=“'”&G4

• Use the fill handle or Ctrl+D to fill it down to the length of Column G's values.

使用填充柄或Ctrl + D将其填充到列G值的长度。

• Select the whole of Column G's values and copy them to the clipboard

选择整个Column G的值并将它们复制到剪贴板

• Select the same range in Column G, right-click, select Paste Special and choose Values

在G列中选择相同的范围,右键单击,选择“选择性粘贴”并选择“值”

0  

Just Select the cells you wish to process and run this short macro:

只需选择您要处理的单元格并运行此短宏:

Sub Textify()
    Dim rng As Range, r As Range
    Set rng = Selection.Cells.SpecialCells(2, 1)
    For Each r In rng
        r.Value = "'" & r.Value
    Next r
End Sub

0  

I have tested it now for several times and it worked always

我现在已经多次测试它并且它始终有效

Cells(xx, xx).FormulaR1C1 = "'" & Cells(xx, xx).Value

Same would work for ActiveCell or whatever you like.

同样适用于ActiveCell或任何你喜欢的。