Я хочу скопировать значения из ячейки в ячейку и применить формат валюты к ячейке назначения.Каким-то образом это работает только после нажатия F2 в ячейке назначения.
Я записал макрос (см. Ниже).Однако я не могу вставить значения и сохранить формат валюты.Извиняюсь за код n00b, я не специалист по VBA.
Шаг 1: скопировать значения для дальнейшей обработки:
Range("A8").Select
Selection.Copy
Range("BH6").Select
ActiveSheet.Paste
Шаг 2: удалить завершающую строку «Af» из всех значений вcol BH
Columns("BH:BH").Select
Selection.Replace What:=" Af", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Шаг 3: используйте TRIM, чтобы взять только сумму (без знака € и пробелов)
ActiveCell.FormulaR1C1 = "=TRIM(MID(RC[-1],3,10))"
Range("BI6").Select
Пока все работает нормально, но теперь я хочускопируйте BI6 в AZ6 (который уже установлен как формат валюты).
Я делаю эту копию вручную, потому что я заметил, что значения вставки не соответствуют формату валюты, и нажатие F2 создает строку в макросе сжестко закодированное значение.Вот так:
Range("BA6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "59"
Range("BA7").Select
Так что я не смогу повторно использовать этот макрос.
Поэтому мне нужна помощь с последней частью обработки.