Sub?包村1()
暗淡?我,?v
v?=?Sheet1。[a3]
如果?v?=?""?然後
MsgBox?"請輸入信息。"
退出?潛水艇
結束?如果
為了什麽?我?=?1?去哪?工作表2。UsedRange.Rows.Count
如果?工作表2。細胞(我,?“甲”)?=?v?然後
MsgBox?“有救了。”
退出?潛水艇
結束?如果
下壹個?我
Sheet1。範圍(" A3:EC3 ")。復制
工作表2。細胞(我,?1).PasteSpecial?粘貼:=xlPasteValuesAndNumberFormats
MsgBox?"保存成功"
結束?潛水艇