[Excel 2010 VBA] Формат ячейки изменяется после запуска кода VBA

Question

У меня проблема с работой с VBA, которую я не понял, как исправить, и поэтому хотел бы спросить здесь какого-нибудь эксперта.

Итак, моя сложность заключается в том, что у меня есть ячейка, значение которой равно AUG18 (в строке формул: 'AUG18 )

Я пытался написать простой код для репликациизначение этой ячейки для других ячеек под ней.Код работал нормально, но формат ячейки был изменен после того, как я запустил код.

До:

После:

Вот код:

Sub AutoFill()
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Range("A1").CurrentRegion.Value = Range("A1").CurrentRegion.Value
End Sub

Кто-нибудь знает, как решить эту проблему?Заранее спасибо.

Answer 1

Вы можете поместить значение в текстовую функцию.Текст (диапазон («А1»). CurrentRegion.Value, «мммдд»)

Это всего лишь предположение.

Answer 2

Для меня передача значения вызвала оригинальную проблему;скопировать / вставить значения, похоже, работает.

Sub AutoFill()
    With Range("A1").CurrentRegion
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Copy
        .PasteSpecial xlPasteValues
    End With
End Sub