回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
Dim MR As Long
|
|
6
6
|
MR = Cells(Rows.Count, 1).End(xlUp).Row 'ω'最終行,A:A
|
|
7
7
|
|
|
8
|
-
Cells(1, 1).AutoFilter Field:=
|
|
8
|
+
Cells(1, 1).AutoFilter Field:=15, Criteria1:=Array("新方式")
|
|
9
9
|
|
|
10
10
|
Dim res As Long
|
|
11
11
|
res = Range("P1").Value
|