k = 1‘k初始值
I = inputbox（“請輸入項目編號:“）”給出了總行數的信息。
對於j = 1到I‘的循環判斷
如果工作表（“工作表1”）。單元格（j，5）。如果第五列中的值等於1，則text = 1。
紙張（“紙張1”）。挑選
範圍（單元格（j，1），單元格（j，5））。選擇表格1中的前五列數據。
選擇。復制副本
紙張（“紙張2”）。選擇‘選擇表2。
範圍（單元格（k，1），單元格（k，5））。選擇表2中的前五列。
活動表。粘貼鏈接:= True粘貼鏈接。
k = k+1‘表2的行數增加。
如果…就會結束
然後
申請。CutCopyMode = False“退出復制粘貼模式”和以下語句是可以刪除的輔助語句。
單元格（1，1）。選擇需要輸入的總行數。