刚学习wps宏代码
请教怎么优化代码
function 保存并清除()
{
var x=Sheets("出货明细").Cells(Rows.Count,1).End(xlUp).Row+1;
Sheets.Item("销售单").Activate();
if(Cells(5,3).Value2!=undefined)
{
for(var i=9;i<=17;i++)
{
Sheets.Item("销售单").Activate();
if(Cells(i,2).Value2!=undefined)
{
//第一列
Sheets.Item("销售单").Activate();
Range("G4").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,1).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第二列
Sheets.Item("销售单").Activate();
Range("K20").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,2).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第三列
Sheets.Item("销售单").Activate();
Range("C5").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,3).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第四列
Sheets.Item("销售单").Activate();
Range("B"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,4).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第五列
Sheets.Item("销售单").Activate();
Range("D"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,5).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第六列
Sheets.Item("销售单").Activate();
Range("E"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,6).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第七列
Sheets.Item("销售单").Activate();
Range("F"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,7).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第八列
Sheets.Item("销售单").Activate();
Range("G"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,8).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第九列
Sheets.Item("销售单").Activate();
Range("H"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,9).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十列
Sheets.Item("销售单").Activate();
Range("I"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,10).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十一列
Sheets.Item("销售单").Activate();
Range("J"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,11).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十二列
Sheets.Item("销售单").Activate();
Range("K"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,12).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十三列
Sheets.Item("销售单").Activate();
Range("M"+i).Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,13).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十四列
Sheets.Item("销售单").Activate();
Range("G5").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,14).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十五列
Sheets.Item("销售单").Activate();
Range("L5").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,15).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十六列
Sheets.Item("销售单").Activate();
Range("C6").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,16).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
//第十七列
Sheets.Item("销售单").Activate();
Range("G6").Select();
Selection.Copy(undefined);
Sheets.Item("出货明细").Activate();
Cells(x,17).Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
var x=x+1
}
}
}
else{MsgBox(" 未输入客户名")}
Sheets.Item("销售单").Activate();
if(Cells(5,3).Value2!=undefined)
{
Range("B9:G17,I9:J17,M9:M17,C5:E6,G5:I6,L5:M5").ClearContents();
Range("C5").Select();
ActiveWorkbook.Save();}
else{Range("C5").Select()}
}