回答編集履歴
1
修正
test
CHANGED
@@ -64,7 +64,7 @@
|
|
64
64
|
|
65
65
|
'抽出が0件なら、終了処理へ
|
66
66
|
|
67
|
-
If .Columns("A").SpecialCells(xlCellTypeVisible).Count =
|
67
|
+
If .Columns("A").SpecialCells(xlCellTypeVisible).Count = 1 Then GoTo WayOut
|
68
68
|
|
69
69
|
'表示されている担当者のセルを取得
|
70
70
|
|