Excel巨集請問

lawrence1017
個人積分：5分
文章編號：75878634

5分

樓主

2019-12-22 16:48

請問高手
我有錄製了以下巨集
主要是固定刪除某幾行,但執行時Columns("A:D").Select一直顯示出錯,麻煩好心人幫忙提點一下謝謝

Sheets("交易明細 (2)").Select
Columns("A:D").Select
Selection.Delete Shift:=xlToLeft

2019-12-22 16:48 發佈

文章關鍵字 Excel巨集請 excel

小小尉

小小尉
個人積分：242分
文章編號：75880633

242分

2樓

2019-12-22 20:23

lawrence1017 wrote:
請問高手

我...(恕刪)

程式碼是沒錯的，是跳出什麼錯誤訊息?

lawrence1017

lawrence1017
個人積分：5分
文章編號：75882047

5分

樓主

2019-12-22 22:50

小小尉 wrote:
程式碼是沒錯的，是跳(恕刪)

謝謝大大回覆,下圖是跳出的訊息

小小尉

小小尉
個人積分：242分
文章編號：75884534

242分

4樓

2019-12-23 9:05

lawrence1017 wrote:
謝謝大大回覆,下圖是...(恕刪)

我看你程式碼貼在工作表1裡面，但是程式碼卻跑去選擇"交易明細 (2)"，所以會出錯，解決方式有三個，你試試看吧

1.改程式碼


With Sheets("交易明細 (2)")
.Select
.Columns("A:D").Select
Selection.Delete Shift:=xlToLeft
End With

2.把你的程式碼改放到ThisWorkbook裡面。
3.新增一個模組，把你的程式碼改放到模組裡面。

lawrence1017

lawrence1017
個人積分：5分
文章編號：75889156

5分

樓主

2019-12-23 14:15

小小尉 wrote:
我看你程式碼貼在工作(恕刪)

太感謝大大讓我解決一個大難題謝謝