プラスの数をマイナスにしたいです。 Ｈ1からＨ10のセルにはランダムにプラスの数値が入力されています

プラスの数をマイナスにしたいです。
Ｈ1からＨ10のセルにはランダムにプラスの数値が入力されています。
Ｍ1からＭ10のセルにはランダムにプラスとマイナスの数値が入力されています。

Ｍ列にあるマイナスの数値があった場合だけ、Ｈ列にある同じ行のプラスの数値に「ー」をつけて
マイナスに変えたいのです。Ｈ列に０があった場合はマイナスはつけません。

例えばＨ1が10.001、Ｍ1が-10.023の場合、Ｈ1が-10.001になります。

このようなことがしたいのですが
お詳しい方、教えて頂けませんでしょうか？

宜しくお願い致します。

No.1 ベストアンサー 回答者： ggrksdqn 回答日時： 2020/11/19 22:52

Sub sample()

Dim v: v = Range("H1:I10")
Dim i
For i = 1 To UBound(v, 1)
If v(i, 2) < 0 Then v(i, 1) = v(i, 1) * -1
Next
Range("H1:I10") = v
End Sub

この回答へのお礼

ありがとうございました❗
お陰で助かりました。

お礼日時：2020/11/21 21:19