将数字从科学计数法转换为文本

Question

我尝试了很多方法（.numberformats等），我无法设法将那些科学数字（[A]列）转换为文本，从而无法正确显示EAN代码（[B]列）。

我需要一个VBA解决方案。

有什么建议吗？

编辑：解决方案，该方法对我有效，但我不满意：

For i = 1 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Range("A" & i).NumberFormat = "@"
    Range("A" & i) = Trim(Range("A" & i))
Next i

这将直接将[A]列转换为正确的格式。

Answer 1

Dim iRowCount As Integer

iRowCount = Cells(Rows.Count, "A").End(xlUp).Row

Range("B2:B" & iRowCount).Value = Range("A2:A" & iRowCount).Value
Range("B2:B" & iRowCount).NumberFormat = "0"

Answer 2

尝试一下：

Sub FFF()
    Range("B2").Value = "" & Range("A2").Value
End Sub