Преобразование чисел из научной нотации в текст

Question

Я пробовал так много способов (.numberformats и т. Д.), Что мне не удалось преобразовать эти научные числа (столбец [A]) в текст, чтобы код EAN отображался правильно (столбец [B]).

Мне нужно решение VBA.

есть предложения?

edit: решение , которое работает для меня, но я не доволен:

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