エクセルマクロ 数値の置き換えについて

質問

こんにちは、お客さんエクセルのデータ編集で難儀していまして
何とかいい方法を模索中です。
今エクセルのマクロ（ＶＢ）を使って下記の動作を実行できないか
悩んでいます。こんなのは出来ますか？
＜例＞
商品Ｃ　金額　記号
A001 100
A002 100
A003 200 *
A004 300
・
　・
　・
これが、延々続くのですが、『*』がついている行はマイナスを意味します。
＜やりたいこと(1)＞
* が入って居れば金額にマイナス１を掛けて値をマイナスにして置換えを
したいのです。

＜やりたいこと(2)＞
この作業をグルグル回して行きたいのですが、商品Ｃの値が無くなれば
処理をそこでストップしたいのです。

参考書等を見ながらやっているものの、中々進まず・・・
宜しくお願いします。

回答No.1

merlionXX · ベストアンサー

こんな感じでしょうか。
但し、商品Ｃ　金額　記号はそれぞれA～C列にあるものとします。

Sub test01()
With ActiveSheet
x = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To x
If .Cells(i, "C") = "*" Then
.Cells(i, "B") = .Cells(i, "B") * -1
End If
Next
End With
End Sub

お礼

merlionXX様
早速の回答ありがとうございます！！
うまく行きました！！
これが出来れば色々応用できるので本当に助かりました。
例の記載でスペースが詰まってしまったのでどうしようかと
心配していましたが、全てご配慮いただき助かりました。
改めて御礼申し上げます。m(__)m