[文件] EXCEL巨集編修

[pointchi (pointchi)]

軟體:EXCEL

版本:2013


之前樞紐後篩選的問題經soyoso大協助以解決，目前想更進一步精簡，上網查資料發現有
巨集這功能，因此錄製兩個巨集，但是遇到些問題。

巨集1：將 Data 表單樞紐，並且於C欄寫入公式(大於9則顯示數值，不然就顯示空白)。
巨集2：刪除樞紐產生的 工作表1，檔案回復原始狀態。
https://i.imgur.com/P0VQvq1.jpg


問題1：因為 Data 的資料筆數不一定，因此樞紐產生的 工作表1 筆數也會變化，但是錄
製巨集1時C欄公式只有到C448欄位，所以資料超過C448欄位就不會有公式，請問我要如何
修改巨集內的編碼，使得C欄公式可以依最終欄位增減。
https://i.imgur.com/xrYYe9B.jpg

問題2：錄製巨集2的時候有出現<<刪除工作表的動作無法復原….>>警示視窗，並且按<<
刪除>>，可是執行巨集2的時候還是會出現警示視窗，要如何才能執行巨集2時不會出現警
示視窗。
https://i.imgur.com/RN9EDbe.jpg

問題3：
當我執行巨集2後，再次巨集1時出現下列訊息，看起來應該是因為巨集1樞紐後會產稱
Sheet1表單，可是因為再次執行巨集1時系統會自動產生Sheet2，因此出現錯誤訊息。
https://i.imgur.com/26cDeK7.jpg
https://i.imgur.com/cWQVeNZ.jpg

下連結是我的範例檔案。
https://goo.gl/wrscQx

感謝前輩解惑。


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.251.75.174
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1535269374.A.919.html
→ soyoso: 問題1，以range.end取最後有值儲存格，配合range.address
→ soyoso: 回傳儲存格位置字串；或以range.end().row來取列號
→ soyoso: 問題2，以application.displayalerts為false關閉
→ soyoso: 問題3，新增工作表sheets.add下方再加上activesheet.name
→ soyoso: 為"工作表1"