回答編集履歴
1
修正
test
CHANGED
@@ -1,7 +1,5 @@
|
|
1
1
|
```ここに言語を入力
|
2
2
|
Range("A3").AutoFilter 19, "終了"
|
3
|
-
|
3
|
+
AutoFilter.Range.Columns("U").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks) = "解約"
|
4
|
-
R.Range("U1") = "解約"
|
5
|
-
Next R
|
6
4
|
ShowAllData
|
7
5
|
```
|