更改相应单元格确定的范围内的单元格值

我的问题是我需要打印每天都在变化的文档。 数据库有4列，正在改变的表格上的数据从一列中取值，并将其插入到所需的单元格中，并根据不同部门的需要打印4份。

问题是，我不想马上打印500份。 数据库有分块的文件列，通常大约15到20个。

我需要一次input所需块的input框。 这是我到目前为止的代码：

Sub SEAL() Dim fnd As String, FirstFound As String Dim FoundCell As Range, rng As Range Dim myRange As Range, LastCell As Range fnd = InputBox("Please input Block number to print") Set myRange = Worksheets("DATA").Range("K10:K300") Set LastCell = myRange.Cells(myRange.Cells.Count) Set FoundCell = myRange.Find(what:=fnd, after:=LastCell) If Not FoundCell Is Nothing Then FirstFound = FoundCell.Address Else GoTo NothingFound End If Set rng = FoundCell Do Until FoundCell Is Nothing Set FoundCell = myRange.FindNext(after:=FoundCell) Set rng = Union(rng, FoundCell) If FoundCell.Address = FirstFound Then Exit Do Loop For Each C1 In rng.Offset(0, -1) Worksheets("MASTER 8.1").Range("B17") = C1.Value For Each T1 In Worksheets("Data").Range("E1:E4") Worksheets("MASTER 8.1").Range("A19") = T1.Value Worksheets("MASTER 8.1").PrintOut Next Next Exit Sub NothingFound: MsgBox "Block wasn't found!" End Sub 

目前唯一的问题是当我input块1我得到块：1,10,11,12等打印出来，我需要得到完全匹配。 有小费吗？