teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2021/05/30 07:02

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -16,4 +16,19 @@
16
16
 
17
17
  End Sub
18
18
 
19
+ ```
20
+
21
+ ---
22
+ <追記>複数回登場する場合に初回のみ処理する判定を追加
23
+ ```VBA
24
+ With ws.UsedRange
25
+ Dim i
26
+ For i = 2 To .Rows.Count
27
+ If WorksheetFunction.Match(.Cells(i, 1), .Columns(1), False) = i Then
28
+ .AutoFilter 1, .Cells(i, 1)
29
+ '.Worksheet.PrintOut
30
+ '.Worksheet.ExportAsFixedFormat xlTypePDF, .Cells(i, 1)
31
+ End If
32
+ Next
33
+ End With
19
34
  ```