使用宏前，請備份文件！！！使用宏后，操作無法撤銷~
如果wps表格內含有宏，請點擊啟用宏，保存時文件后綴要選擇xlsm.
進入開發工具
在WPS應用中，打開開發工具菜單
打開JS宏
在開發工具菜單中，找到WPS宏編輯器。
點擊后再空白處編輯（粘貼）代碼，//后文字為注釋文字可以刪除
運行宏
我們點擊js宏選擇對應宏，就可以進行運行操作。
演示效果：
將同一工作表內含有的8份工作簿都執行，變為工資條的操作及取消操作。
取消操作
代碼如下：
/*操作數據前請先備份！！
* 宏由表哥 錄制，時間:2022/10/25
*非專業人士，所有代碼僅供參考~*/
function單表格工資條(){
for (varws of Sheets){
Sheets.Item(ws.Name).Activate() //激活單元表
varlastcell=ws.Range("a999999").End(xlUp); //獲取A列自下向上，最后一個有字符的單元格
varrightcell=ws.Range("a1").End(xlToRight); //獲取A列自下向上，最后一個有字符的單元格
varcou=WorksheetFunction.CountA(ws.Range("a2",lastcell))//統計a2到a列最后一個有字符的單元格間的個數
ws.Range("A1",rightcell).Select() //選擇要復制的單元格區域（首次）
for(varnum=1;num<=cou-1;num++){ //循環次數及步長
Selection.Copy(undefined); //復制選中(函數返回布爾值而非復制的內容)
ActiveCell.Offset(2,0).Range("A1",rightcell).Insert(xlShiftDown, undefined);
//活動單元格偏移2行0列，向下插入單元格
Application.CutCopyMode= false; //退出剪切/復制模式
ActiveCell.Offset(2,0).Range("A1",rightcell).Select()
//選擇Range("A1",rightcell)向下偏移2行0列的單元格區域（更改復制目標）
}
}
}
function單表格工資條刪除(){
for (varws of Sheets){ //遍歷所有單元表
Sheets.Item(ws.Name).Activate() //激活單元表
varlastcell=ws.Range("a999999").End(xlUp); //獲取A列自下向上，最后一個有字符的單元格
varrightcell=ws.Range("a1").End(xlToRight); //獲取A列自下向上，最后一個有字符的單元格
varcou=WorksheetFunction.CountA(ws.Range("a2",lastcell))//統計a2到a列最后一個有字符的單元格間的個數
ws.Range("A1",rightcell).Select() //選擇要復制的單元格區域（首次）
for(varnum=3;num<=cou-1;num+=1){ //循環次數及步長
Rows.Item(num).Select(); //選擇行數
Selection.Delete(xlShiftUp) //刪除所選擇行
}
}
}
