|
▼isausa さん:
>整理するとB列に集計の文字を含んでいなければ""を、B列に集計という文字があってD列が0より大きいときに"売掛金"、集計という文字を含み、Dの値が0より小さいときは""を入れるようにしたいのです。上の表で言うとA4.7に売掛金、A10は何もなしにしたいのです。方法はありますか
sheet1 だとして、
こんな感じ?
Dの値が0の時も""にしています。
Option Explicit
Sub test()
Dim r As Range
With Sheets("Sheet1")
For Each r In .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp))
If InStr(r.Value, "集計") > 0 Then
If r.Offset(, 2).Value > 0 Then
r.Offset(, -1).Value = "売掛金"
Else
r.Offset(, -1).Value = ""
End If
Else
r.Offset(, -1).Value = ""
End If
Next
End With
End Sub
|
|