Добрый день!
Помогите разрешить проблему: есть очень много таблиц, в столбце АА которых ячейки текстового формата содержат "=20". Пытаюсь их заменить на "=10":
Dim xlApp As Object, xlWb As Object
Set xlApp = CreateObject("Excel.Application")
Dim Arr As Variant, TS%, PS%, tbl$
TS = 10
PS = 20
Arr = Array("Таблица1", "Таблица2", "Таблица3", "Таблица4")
For i = LBound(Arr) To UBound(Arr)
tbl = Arr(i)
Set xlWb = xlApp.Workbooks.Open("C:\" & tbl & ".xls")
xlApp.Visible = False
xlApp.ScreenUpdating = False
xlApp.DisplayAlerts = False
xlApp.Cells.Replace What:="=" & PS, Replacement:="=" & TS, LookAt:=2, SearchOrder:=1, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
xlWb.Save
xlWb.Close
Next i
xlApp.Quit
В итоге ячейки заменяются, но вместо "=10" становится просто "10", и хотя Excel показывает, что формат ячейки по прежнему текстовый, но ведет ячейка себя уже как число. Как сделать замену, чтобы в ячейке стало "=10" ?
Спасибо.

http://www.sql.ru/forum/1098829/zamena-v-liste-excel-tekstovyh-znacheniy-soderzhashhih