[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロのエラーが急にでました』(水水)
マクロ
━━━━━━━━━━
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_ _)o))
MK様
ご教授頂き有難うございます(o_ _)o))
(水水) 2023/03/23(木) 10:47:12
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.