скопируйте и вставьте ячейку с одного листа на другой и умножьте ее на значение

Question

Worksheets(stockcode & "_CF_" & marketcode).Range("B11").Copy 
Worksheets(stockcode & "_Stock ratio_" & marketcode).Range("D16").PasteSpecial 

Я запускаю эти две строки кода для копирования с одного листа и вставки его на другой рабочий лист. Посреди этого, я хочу умножить его на -1, прежде чем вставлять на последний рабочий лист. Любые способы сделать это?

Answer 1

Как вы просто хотите скопировать одну ячейку, и (надеюсь) это число, которое вы только могли бы написать:

Worksheets(stockcode & "_Stock ratio_" & marketcode).Range("D16") = Worksheets(stockcode & "_CF_" & marketcode).Range("B11")* -1