エクセルマクロエラー'Global'オブジェクト

お世話になります。
下記マクロを実行したら
実行時エラー'1004':
'Range' メソッドは失敗しました:'_Global'オブジェクト
と出て、色々検索してもどう編集したらいいか分からず状態です。

Sub 数式更新()
'
' 数式更新 Macro
'

'
Range( _
"E631:E849,K631:K849,Q631:Q849,W631:W849,AC631:AC849,AI631:AI849,AO631:AO849,AU631:AU849,BA631:BA849,BG631:BG849,BM631:BM849,BS631:BS849,BY631:BY849,CE631:CE849,CK631:CK849,CQ631:CQ849,CW631:CW849,DC631:DC849,DI631:DI849,DO631:DO849,DU631:DU849,EA631:EA849,EG631:EG849,EM631:EM849,ES631:ES849,EY631:EY849,FE631:FE849,FK631:FK849,FQ631:FQ849,FW631:FW849,GC631:GC849" _
).Select
Range("GC849").Activate
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

もし分かる方いたらどこがどういけないのか教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2016/08/16 09:16

どうやら「Range("E631:E849,…,GC631:GC849").Select」が長すぎるようです。

次のようにみたらいかがでしょうか？
---------------------------------------------------------------------------
Sub 数式更新()
Range( _
"E631:E849,K631:K849,Q631:Q849,W631:W849,AC631:AC849,AI631:AI849,AO631:AO849,AU631:AU849,BA631:BA849,BG631:BG849,BM631:BM849,BS631:BS849,BY631:BY849,CE631:CE849" _
).Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range( _
"CK631:CK849,CQ631:CQ849,CW631:CW849,DC631:DC849,DI631:DI849,DO631:DO849,DU631:DU849,EA631:EA849,EG631:EG849,EM631:EM849,ES631:ES849,EY631:EY849,FE631:FE849,FK631:FK849,FQ631:FQ849,FW631:FW849,GC631:GC849" _
).Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
---------------------------------------------------------------------------
ちなみに「Range("GC849").Activate」は完全に不要です。

この回答へのお礼

ありがとうございます。エラーが出なくなりました。ただ、他の問題が出てきたのでまたよろしくお願いします。

お礼日時：2016/08/16 09:27