Question

我试图转换B列中的所有数据，目前这些数据是整数。 26，文本格式，ex＆＃34; 26＆＃34;。我尝试过以下方法：

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

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

2 个答案: