[Iska]

megaloman, полагаю, если вставлять как текст:

Код:

.Range(RangeIn).Offset(i, 0).Value = "'" & CStr(NRepl(j + 1))

— выравниваться вправо не будет (не проверялось).

[megaloman]

Iska, Я сам пробовал так делать. Действительно, выравнивание сохраняется, но при просмотре ячейки по F2 апостроф перед числом виден. Я посчитал это некорректным.
То, что сделал я, тоже костыль нехороший: ранее содержимое было текст, а стало числом.
Правильнее, вместо предыдущего костыля такое вот решение (каюсь, надо было не лениться и мозги раньше включить):

Код:

                 .Range(RangeIn).Offset(i, 0).NumberFormat = "@"
                 .Range(RangeIn).Offset(i, 0) = NRepl(j + 1)

ИМХО (но это надо глубже знать задачу), лучше отформатировать весь столбец сразу как текстовый - быстрее будет выполняться.

Код:

    .Columns(.Range(RangeIn).Column).NumberFormat = "@"

    i = 0
    Do
        i = i + 1
        iCell = Trim(CStr(.Range(RangeIn).Offset(i, 0)))
        If Len(iCell) = 0 Then Exit Do
        For j = N1 To N2 Step 2
            If iCell = NRepl(j) Then
                 .Range(RangeIn).Offset(i, 0) = NRepl(j + 1)
                Exit For
            End If
        Next
    Loop

CStr(NRepl(j + 1)) здесь не нужно, элементы этого массива изначально записывались как литералы.
Я не проверял решение в случае, если замены надо делать не со строками, которые можно интерпретировать как число, а как голимые литералы. Подозреваю, и в этом случае скрипт будет работать.

[Iska]

но при просмотре ячейки по F2 апостроф перед числом виден. Я посчитал это некорректным. »

Шут его знает. В концепции Microsoft Excel — это вполне официальный и поддерживаемый способ, идущий от начала времён (ещё до-Excel'евских). В возвращаемом значении свойств .Value, .Value2, .Text апостроф не показывается, он учитывается отдельным свойством .PrefixCharacter, так уж сложилось исторически:



При экспорте, например, в CSV или в TSV, эти апострофы не сохраняются, тип данных (строка, а не число) теряется. При экспорте в xml апострофы также не сохраняются, тип данных сохраняется.

[megaloman]

Шут его знает. »

Код:

Range("A1") = "1234567"                         'Формат ячейки общий
Range("A2") = "'1234567"                        'Формат ячейки общий

MsgBox Range("A1") = Range("A2")                ' Получим False
MsgBox CStr(Range("A1")) = CStr(Range("A2"))    ' Получим True

Range("C1") = "1234567"                         'Формат ячейки общий
Range("C2") = "1234567"                         'Формат ячейки текстовый

MsgBox Range("C1") = Range("C2")                ' Получим False
MsgBox CStr(Range("C1")) = CStr(Range("C2"))    ' Получим True

[Iska]

megaloman, дык, про что и речь, ибо:

Код:

Option Explicit

Sub Sample()
    Range("A1").Value = "1234567"
    Range("A2").Value = "'1234567"
    
    Debug.Print Range("A1").Value = Range("A2").Value
    
    Debug.Print TypeName(Range("A1").Value)
    Debug.Print TypeName(Range("A2").Value)
End Sub

Код: False Double String