如何将用整数填充的列转换为文本格式-VBA-Excel

Question

我正在尝试转换B列中的所有数据，这些列当前是ex的整数。 26，为文本格式，例如“ 26”。 我尝试了以下方法：

Dim index As Long

index = 2

Do While index_5 <> NewResizeRange

   Worksheets("Source").Cells(index, "B").Value = CStr(Worksheets("Source").Cells(index, "B").Value)

   index = index + 1

Loop

这变得极其缓慢且无效。

我也尝试过：

Sub Macro8()

   Columns("E:E").Select
   Selection.TextToColumns Destination:=Range("Table1[[#Headers],[Column5]]"), _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
    :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
End Sub

问题在于，当数据来自另一个工作表并且单元格引用了该工作表时，它仅在单元格中显示数据的位置。

有任何想法吗？

Answer 1

这是你要找的吗？

Range("B1:B288889").NumberFormat = "@"

干杯

Elmnas

Answer 2

然后尝试以下方法：

Range("D1:D999999").FormulaR1C1 = "=TEXT(RC[-3],""0"")"
Range("D1:D999999").Copy 
Range("A1:A999999").PasteSpecial Paste:=xlPasteValues