Excel 合併儲存格發生「執行階段錯誤 1004，應用程式或物件定義上錯誤」

初學excel VBA，遇到合併儲存格問題，想了好幾天，仍無法解決，想請各位大大幫我看看

測試檔案位置於此：http://www.FunP.Net/66620

說明我遇到的問題：
Excel 合併儲存格發生「執行階段錯誤 1004，應用程式或物件定義上錯誤」

程式碼會判斷工作表1資料是那個部門後新增該部門的工作表(A室)，再新增的工作表(A室)中合併某幾個欄位(A室!B5:E5)。
Excel 合併儲存格發生「執行階段錯誤 1004，應用程式或物件定義上錯誤」

"Worksheets("A室").Range(Cells(A6, 2), Cells(A6, 5)).Merge"
我試過這段程式碼若只有一個部門時可以執行，若有二個以上部門，不知道為何會出現「執行階段錯誤 1004，應用程式或物件定義上錯誤」的錯誤訊息，能請各位大大幫我看看是那邊出問題了嗎?

感激不盡!!

2015-02-11 13:11 #1

文章關鍵字

excel 合併儲存格錯誤應用程式物件定義 1004

無的放矢

280分

2樓

無的放矢

個人積分：280分

文章編號：54463050

elaineen wrote:
"Worksheets("A室").Range(Cells(A6, 2), Cells(A6, 5)).Merge"...(恕刪)

(一)
引言改成 Worksheets("A室").Range(Cells(A6, 2).address, Cells(A6, 5).address).Merge 可執行,
但如果連下面的B室也改成:
Worksheets("B室").Range(Cells(A7, 2).address, Cells(A7, 5).address).Merge 又會無法執行.
還有,若是新增C室、D室等工作表也會產生錯誤訊息.

(二)
所以我改成新增二行程式碼:
Worksheets("A室").Activate
Worksheets("A室").Range(Cells(A6, 2), Cells(A6, 5)).Merge
......
Worksheets("B室").Activate
Worksheets("B室").Range(Cells(A7, 2), Cells(A7, 5)).Merge
'Activate後，寫成Range(Cells(A7, 2), Cells(A7, 5)).Merge 也OK
目前看起來是還OK,若增加C室、D室也可正常執行,至於原因我也不太瞭解.

Excel 合併儲存格 發生「執行階段錯誤 1004，應用程式或物件定義上錯誤」

小惡魔新聞台

今日熱門文章 網友點擊推薦！

Excel 合併儲存格發生「執行階段錯誤 1004，應用程式或物件定義上錯誤」

今日熱門文章　網友點擊推薦！