値の貼り付け（PasteSpecial）の動作について

Question

Excelのマクロで、CSVファイルを開き、シートにデータを貼り付ける処理を実行しています。

Windows10で実行していたときは、問題なく動いていたのですが、

Windows11で実行すると、違うシートにデータが貼り付けられるようになりました。

Officeの修復も行ってみましたが、症状は変わりません。

何が原因なのかわからないため、わかる方がいましたら、教えていただけると助かります。

・ワークブックのシート構成（複数シート）

Sheet1、Sheet2、Sheet3

・ＣＳＶファイル（data.csv）のデータ

A,B,C

1,2,3

・マクロのコード

Sub Macro1()

  'CSVファイルを開く 

  Workbooks.Open ThisWorkbook.Path & "\data.csv" 

  'CSVファイルのデータをコピーする 

  Workbooks("data.csv").ActiveSheet.Range("A1:C2").Copy 

  'コピーしたデータの値のみをSheet1に張り付ける 

  ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues 

  'CSVファイルを閉じる 

  Workbooks("data.csv").Close 
```  End Sub

Answer 1

こんにちは

私はAdeyemiです、そして私はあなたの質問を喜んでお手伝いします。

Windows 11で実行しているときにExcelマクロでペーストスペシャルの動作に問題が発生しているようです。この問題の原因はわかりませんが、問題のトラブルシューティングに役立つ可能性のあるいくつかの提案を次に示します。

1. Office のバージョンが最新であることを確認します。更新プログラムを確認するには、[ファイル> アカウント>更新オプション] (または Office のバージョンによっては [ヘルプ] > [更新プログラムの確認] ) に移動し、[今すぐ更新] を選択します。 2.新しい空白のブックでマクロを実行して、問題が解決するかどうかを確認してください。これは、問題が特定のブックまたはマクロ自体に関連しているかどうかを判断するのに役立ちます。
2. PasteSpecialの動作を妨げる可能性のある他のマクロまたはアドインがあるかどうかを確認します。他のすべてのマクロとアドインを無効にして、問題が解決するかどうかを確認できます。 4.マクロでカスタム関数を使用している場合は、正しく機能し、期待される値が返されていることを確認します。

これがお役に立てば幸いです

コミュニティに還元する。この返信で問題が解決したかどうかを示すことで、この問題を抱えている次の人を助けます。下の [はい] または [いいえ] をクリックします

よろしく アデエミ

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。

Answer 2

Adeyemi様

ご返信ありがとうございます。

教えていただいたトラブルシューティングを順番に試してみました。

３つ目の提案に従い、アドインを無効にして実行したところ、正常に動作するようになった事を確認しました。

アドインが原因だったようです。

ご協力ありがとうございました。