[[20230322191726]]　『マクロのエラーが急にでました』（水水）　ページの最後に飛ぶ

『マクロのエラーが急にでました』（水水）

マクロ

━━━━━━━━━━
Application.ScreenUpdating = False

   Dim i As String, x1 As String, x2 As String

    i = 2
     Do
        x1 = Sheets("置換前").Cells(i, 1)
        x2 = Sheets("置換前").Cells(i, 2)
        Sheets("置換後").Cells.Replace _
            What:=x1, Replacement:=x2, _
            SearchOrder:=xlByColumns, MatchCase:=True
        i = i + 1
    Loop Until Sheets("置換前").Cells(i, 1) = ""
End Sub
━━━━━━━━━━

「置換前」のシートのA列に置換前、B列に置換後を用意して
置換したいものを「置換後」シートに用意してマクロを起動しておりました。

いきなり下記のエラーがでました。
昨日までは毎日使えていたのですが。。

オートメーションエラーです。
無効な前方参照か、コンパイルされていない種類への参照です。

これはどういった指摘なのでしょうか？

ご教示頂ければ幸いです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

とりあえず↓こんなのが引っ掛かったです。

Excel VBA ― マクロ実行時に謎のオートメーションエラー“-2147319767”が発生する場合の対処法 ? IPPEIntel.com
https://ippeintel.com/archives/4644

エラーが発生した場合にも有効 / Excelファイルが保存できない時に試したい3つの解決法
https://olivenne.com/blog/excel-001/#toc-7

（白茶） 2023/03/22(水) 19:31:57

 横から失礼します。
 エラーとは会計無いと思いますが

 >Dim i As String

 ここは
 Dim i As Integer

 または

 Dim i As Long

 としたほうがいいのではないですか？
（MK） 2023/03/22(水) 19:53:40

 >エラーとは会計無いと思いますが

 ↓の間違いでした。

 エラーとは関係無いと思いますが
（MK） 2023/03/22(水) 19:54:57

白茶様

リンク先を参考に新しいブックにコピーしてみると無事動作致しました。
ブックの破損か何かのようでした。

よく使うマクロでしたので非常に助かりました。
有難うございます（o_ _)ｏ））

MK様
ご教授頂き有難うございます（o_ _)ｏ））
（水水） 2023/03/23(木) 10:47:12

コメント返信：

[ 一覧(最新更新順) ]

[[20230322191726]] 『マクロのエラーが急にでました』（水水） ページの最後に飛ぶ

[[20230322191726]]　『マクロのエラーが急にでました』（水水）　ページの最後に飛ぶ