Этот код вызывает маленький зеленый треугольник ошибок.
Он выглядит очень похоже на небольшой фрагмент кода, который вы дали, он просто добавляет '
в начало значения ячейки, поэтому не знаете, почему ваш код не сделал этого.
Обратите внимание , что он перезапишет формулу с результатом формулы (которому предшествует '
).
Sub Test()
Dim rCell As Range
For Each rCell In ThisWorkbook.Worksheets("Sheet1").Range("A1:A5")
rCell = "'" & rCell
Next rCell
End Sub
Редактировать :
Я дал код VBA, поскольку ваше сообщение говорит: «Для этого нужно использовать макросы / функции Excel» , но ваш тег - excel-formula
, так что, возможно, вы имели в виду обратное.
Попробуйте эту формулу:
=TEXT(A1,"0")
Это не добавит треугольник, но если вы скопируете и вставите значения поверх ваших исходных чисел, появятся треугольники.