回答編集履歴
2
追記
test
CHANGED
@@ -1,3 +1,5 @@
|
|
1
|
+
点検と実施が1:1のデータが前提のコードになります。
|
2
|
+
|
1
3
|
```vba
|
2
4
|
Sub test()
|
3
5
|
|
1
修正
test
CHANGED
@@ -16,14 +16,12 @@
|
|
16
16
|
If .Cells(i, 3).Value = "〇" Then
|
17
17
|
jisshi.Add .Cells(i, 1).Value, .Cells(i, 1).Row
|
18
18
|
If tenken.exists(.Cells(i, 1).Value) Then
|
19
|
-
jisshi.Remove .Cells(i, 1).Value
|
20
19
|
.Rows(i).delete
|
21
20
|
End If
|
22
21
|
ElseIf .Cells(i, 4).Value = "〇" Then
|
23
22
|
tenken.Add .Cells(i, 1).Value, .Cells(i, 1).Row
|
24
23
|
If jisshi.exists(.Cells(i, 1).Value) Then
|
25
24
|
.Rows(jisshi.Item(.Cells(i, 1).Value)).delete
|
26
|
-
jisshi.Remove .Cells(i, 1).Value
|
27
25
|
End If
|
28
26
|
End If
|
29
27
|
Next i
|