「データを置き換えますか？」のメッセージ

質問

Excel VBA でのマクロ実行時のメッセージについて教えて下さい。
エクスポートしたデータをSheet1にはりつけ、
体裁調整のマクロを実行した時に
「既にデータがあります。置き換えますか？」のメッセージが
出てしまうようになりました。

「OK」を選択するとマクロは実行されるのですが、
右端2列のデータが消えてしまいます。
また「いいえ」を選択すると
「RangeクラスのText To Columnsメソッドが失敗しました」の
メッセージが出て中断してしまいます。

実行マクロは
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
になっており、
J列の前に列を挿入し、I列のデータをスペース区切りで分割しています。

また別のシートでは、
前月の日付のみのデータを残し、それ以外は削除というマクロを組んでいたのですが、
「型が一致しません」というエラーが出てしまいました。

具体的には、D列に下記の日付が入力されています。
　2022/5/25
　2022/6/1
　2022/6/2
　2022/6/7
　2022/7/8
上記の日付の内、前月の日付(2022/7/8)が入力された行のみ残し、
それ以外は削除したいのですが、上記のエラーが出てしまいます。
実行vbaは下記となります。
Dim r As Range
Dim d As Date
d = DateAdd("m", -1, DateSerial(Year(Date), Month(Date), 1))
With Range("D4", Cells(Rows.Count, "D").End(xlUp))
For Each r In .Cells
If Not DateSerial(Year(r), Month(r), 1) = d Then
r.ClearContents
End If
Next r
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlShiftUp
On Error GoTo 0
End With
「If Not DateSerial(Year(r), Month(r), 1) = d Then」
に問題があると表示されています。

今月初めに作業をした時は正常に動作したのですが。。。
質問ばかりで恐縮ですが、どうぞ宜しくお願い致します。

回答No.1

kon555 · ベストアンサー

まずデータ区切りについては、マクロは正常に作動していると思います。
「既にデータがあります。置き換えますか？」のメッセージはマクロ側ではなく、データ区切り機能のメッセージです。分割後のデータを表示させるセルに既にデータが入っている場合の注意換気ですね。
『右端2列のデータが消えてしまいます。』というあたりからすると、元データから想定より多くの分割数でデータが分割された結果、空白で上書きされているのでしょう。一度手動でデータ区切りを試してみて、どのように分割されているか確認してみるといいと思います。
　場合によっては元データの修正などが必要になるでしょう。

　次に「型が一致しません」というエラーですが、これはvba側の関数で、規定の型に対してしか実行できないのに違うデータ型に対して実行しようとした時に出るエラーです。
　コードはザッとしか見ていないのですが、今月初めに作業をした時は正常に動作した、というところからすると問題はないでしょう。多分データ側に不備があると思います。日付として処理できないデータが入力されているんじゃないでしょうか。
　元々空白だったり、文字列だったり、というデータです。その辺りを確認すると解決すると思います。

　最後に、質問の内容からすると、業務でvbaは使用しているもののエエラーに対処する能力が低いようにお見受けします。
　こうしたサイトでの解決には限界がありますし、そもそも的確な回答がつくとも限りませんので、エラー対応の方法を学習する事をおススメします。
https://www.excelspeedup.com/vbadebug/
https://www.tipsfound.com/vba/01010
　要は「デバッグ」と言われる作業です。こうしたサイトで相談する場合にも、これがある程度行われていれば回答がつく可能性は上がります。
　何より急ぎの業務だったりするケースを考えると、やはり自分で対応できるに越した事はありません。
　お時間のあるときにでも勉強してみて下さい。

お礼

早々にご回答を有り難うございます。
無事、実行することが出来ました。

データを見直したところ、
やはり挿入した列以上のスペースが 入力した文字のところどころに入っていました。
そちらを削除したところ、正常に動作するようになりました。
末尾にもスペースが入っていました。

日付の問題ですが、念のため入力をし直したところ こちらも無事解消致しました。
日付として処理できないものは入力されておらず、
空白セルもなく 解消できた理由がよくわかっておりませんが・・・。

VBA初心者でご指摘の通り、能力以上のことをしている自覚があります。
勉強を続けていきたいと思います。
本当に有り難うございました。