將單元格從一個工作表複製並粘貼到另一個工作表並將其乘以一個值

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