質問編集履歴
2
自分で試したことを追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,5 +28,30 @@
|
|
|
28
28
|
Next i
|
|
29
29
|
End Sub
|
|
30
30
|
|
|
31
|
+
```Sub filter()
|
|
32
|
+
Dim i As Long
|
|
33
|
+
Dim ws, ws2 As Worksheet
|
|
34
|
+
Dim path As String
|
|
35
|
+
path = "E:\work\"
|
|
36
|
+
Set ws = Worksheets("sheet23")
|
|
37
|
+
Set ws2 = Worksheets.Add(after:=ws)
|
|
38
|
+
Dim c As Integer
|
|
39
|
+
c = 1
|
|
40
|
+
Dim result As Range
|
|
41
|
+
With ws.UsedRange
|
|
42
|
+
For i = 2 To .Rows.count
|
|
43
|
+
Set result = ws2.Columns(1).Find(what:=ws.Cells(i, 1))
|
|
44
|
+
If result Is Nothing Then
|
|
45
|
+
ws2.Cells(c, 1) = ws.Cells(i, 1)
|
|
46
|
+
.autoFilter 1, Cells(i, 1)
|
|
47
|
+
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & ws.Cells(i, 1)
|
|
48
|
+
c = c + 1
|
|
49
|
+
End If
|
|
50
|
+
Next
|
|
51
|
+
End With
|
|
52
|
+
ws.AutoFilterMode = False
|
|
53
|
+
End Sub
|
|
54
|
+
コード
|
|
55
|
+
```
|
|
31
56
|
```](7909b2da8fd1ac8bb88ae296004c19b0.png)
|
|
32
57
|
|
1
コードに不備がありましたので訂正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
Cells(1, 1).autoFilter 1, "勝村"
|
|
25
25
|
|
|
26
26
|
'フィルター後の印刷や、メール送信の処理を書く
|
|
27
|
-
Cells(1, 1)
|
|
27
|
+
Cells(1, 1).autoFilter 'フィルター解除
|
|
28
28
|
Next i
|
|
29
29
|
End Sub
|
|
30
30
|
|