Применить функцию REPLACE к самой исходной ячейке

Question

Можно ли в Excel отформатировать, применить результат формулы к самой ячейке?

У меня есть ячейка, содержащая текст. Текст начинается с нежелательной точки маркера, и я хотел бы использовать функцию ЗАМЕНА ниже, чтобы удалить начальные точки маркера.

Рассматривая ячейку A2 как источник, который содержит текст с ведущим специальным символом (маркер), я хотел бы применить к нему эту функцию и хочу, чтобы текст результата был вставлен обратно в A2

=replace(A2,1,6,””)

Есть идеи?

Answer 1

Предположим, что ваши ячейки в столбце (в примере кода 5) содержат текст типа "x 12345", "x 3456", "x abcd" и т. Д. c. будет преобразовано в: «12345», «3456», «abcd» и т. д. c. Вы можете установить strRepl для любой строки:

Sub testReplace()
  Dim sh As Worksheet, colNo As Long, arrCol As Variant
  Dim lastRow As Long, i As Long, strRepl
   Set sh = ActiveSheet ' put here your sheet
   colNo = 5 'Column E:E
   strRepl = "x " 'use here your string to be removed
   lastRow = sh.Cells(sh.Rows.count, colNo).End(xlUp).Row
   arrCol = sh.Range(Cells(1, colNo), Cells(lastRow, colNo)).Value
   For i = 1 To UBound(arrCol)
        arrCol(i, 1) = Replace(arrCol(i, 1), "x ", "")
   Next i
   sh.Range(Cells(1, colNo), Cells(lastRow, colNo)) = arrCol
End Sub