|
▼りょう さん:
こんにちは
Wordは不得意なのでExcelだけで処理してみました。
Sub Sample()
Dim v As Variant
Dim f As Long, t As Long, y As Long
Dim sh As Worksheet
Set sh = Sheets("Sheet2")
With Sheets("Sheet1")
v = .Range("A1", .Range("A" & .Rows.Count).End(xlUp)).Value
f = WorksheetFunction.Min(v)
t = WorksheetFunction.Max(v)
For y = f To t
If IsNumeric(Application.Match(y, v, 0)) Then
'ここで、Sheet2で現在、管理番号を入力しているセルに
' y をセット。
'例 sh.Range("B4").Value = y
sh.PrintOut Copies:=1, Collate:=True
End If
Next
End With
Set sh = Nothing
End Sub
|
|