AIと戦って、あなたの人生のリスク診断 >>

こんにちは、お客さんエクセルのデータ編集で難儀していまして
何とかいい方法を模索中です。
今エクセルのマクロ(VB)を使って下記の動作を実行できないか
悩んでいます。こんなのは出来ますか?
<例>
商品C 金額 記号
A001 100
A002 100
A003 200 *
A004 300

 ・
 ・
これが、延々続くのですが、『*』がついている行はマイナスを意味します。
<やりたいこと(1)>
* が入って居れば金額にマイナス1を掛けて値をマイナスにして置換えを
したいのです。

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

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんな感じでしょうか。


但し、商品C 金額 記号はそれぞれ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
    • good
    • 0
この回答へのお礼

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

お礼日時:2007/06/18 13:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング