Application.WorksheetFunction.Max(Sheet1.Range("A4:A1000")) '最大数值
Sub 打印()
'Sheet2.Range("A1:AC14").PrintOut Copies:=1, Collate:=True '设置打印区域
For I = 4 To 1000 Step 1
If [AE3] = Sheet1.Range("A" & I) Then '如果等于。。。
Sheet1.Range("J" & I & ":O" & I).Copy Sheet5.Range("J" & I & ":O" & I) '复制至同一个名下。。。
End If
Next
a = MsgBox("打印完毕,点击[确定]查看是不是复制到[打印后生成数据]了?", vbYesNo, "ahaoge提示")
If a = vbYes Then
Sheet5.Select
Else
[AE3].Select
End If
ThisWorkbook.Save
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。