d = i * 5
dbegin = i * 5 + 1
dend = (i + 1) * 5
’确定复制、粘贴“通知单”格式区域的起止行,5为复制区域的行数
Sheet2.Range(Cells(sbegin, 1), Cells(send, 11)).Copy _
Destination:=Sheet2.Range(Cells(dbegin, 1), Cells(dend, 11))
’将(Cells(sbegin, 1), Cells(send, 11))区域中的格式拷贝到(Cells(dbegin, 1), Cells(dend, 11))页码:[1] [2] [3] [4] [5] [6] 第3页、共6页 |