回答編集履歴
1
追記しました。ｂが空白でない場合に色をつけるようにしました。
answer
CHANGED
|
@@ -3,7 +3,9 @@
|
|
|
3
3
|
If Len(OldStr) > 0 Then
|
|
4
4
|
・・・・・省略・・・・
|
|
5
5
|
Else
|
|
6
|
+
If wksNew.Cells(r.row, r.Column).Value <> "" Then
|
|
6
|
-
|
|
7
|
+
wksNew.Cells(r.row, r.Column).Interior.Color = 65535 '黄色の定数
|
|
8
|
+
End If
|
|
7
9
|
End If
|
|
8
10
|
|
|
9
11
|
```
|