| |
はじめまして。
初心者ですが、今回使っているマクロでエラーがあり、
原因がわかりません。
どなたか、教えてください。
Sheets("データ").Select
Columns("F:AF").Select
Selection.Copy
Sheets("１").Select
Selection.PasteSpecial Paste:=xlPasteValues, _Operation:=xlNone,SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=31, Criteria1:="売掛金海外"
Cells.Select
Selection.Copy
Sheets("２").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _：=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
記述は上記の通りです。
「データ」シートのF:AFのデータを「１」シートに貼り付け
「１」シートで31列目でフィルターをかけたデータを
「２」シートに値と書式だけ貼り付ける
という内容だと思います。
このファイルは毎月使いますが、マクロ記述は一切さわっていません。
「データ」シートの内容は毎月ＳＡＰシステムから抽出したデータです。
エラーの内容は「２」シートにデータを貼り付けるときに、
いつもは「１」シートと同じ内容（１回だけ）で張り付くのですが、
今月は、最終行まで繰り返して張り付いてしまいました。
記述はさわっていないので、ＳＡＰから取り込んだデータに
何か変化がないかみたのですが、特にこれといってかわっていません。
なぜ今月だけ貼付を最終行まで繰り返してしまうのか、
原因がわかりません。
Sheets("２").Select
Cells.Select ←←
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _：=False, Transpose:=False
Cells.Select ←←
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_SkipBlanks:=False, Transpose:=False
とりあえず、全セル指定して貼付ているところを、
Ａ１を選択して張り付けることで１回だけ張り付くようにして回避しましたが、
どなたか理由がわかる方、どうか教えてください。
よろしくお願いします。
Sheets("２").Select
Range("A1").Select ←←
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Range("A1").Select ←←
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_SkipBlanks:=False, Transpose:=False
|
|
くま
- 10/7/21(水) 13:30 -
