エクセルVBAで以下のようなコードを書いています。
Sub 工事抽出コピペ()
Dim Obj As Object
With Sheets("工事台帳")
Set Obj = .Range("E5:E65536").Find(.Range("E2"), LookAt:=xlWhole)
If Obj Is Nothing Then
MsgBox "見つかりませんでした。"
Sheets("工事別表示").Range("B11:F65536").ClearContents
Exit Sub
Else
.Range("B6").AutoFilter Field:=4, Criteria1:=.Range("E2").Value
.Range("F5:J" & .Range("B65536").End(xlUp).Row).Copy
End If
End With
Sheets("工事別表示").Range("工事別明細1", "工事別明細2", "工事別明細3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
実行すると、
Sheets("工事別表示").Range("工事別明細1", "工事別明細2", "工事別明細3").PasteSpecial Paste:=xlPasteValues
部分が黄色くなって、
「実行時エラー'450'、引数の数が一致していません。または不正なプロパティを指定しています。」
というエラー表示がでます。
工事台帳シートでオートフィルターをかけ抽出したものが30行あったときに、工事別表示シートは10行ずつの表を作っているので、そこに上から順番にコピペしようとしているのですがうまくいきません。
工事別明細1はB11:F39、工事別明細2はB43:F71、工事別明細3はB75:F103"です。
そもそも、オートフィルターで抽出したものを、分けてペーストすることは可能なのでしょうか?
解決策をおしえてください。
よろしくおねがいします。
No.2ベストアンサー
- 回答日時:
同じデータを3回貼るのではなく、10行ずつにわけて貼るのですよね?
一旦どこかにデータを退避させて10行ずつ貼ったらどうでしょう?
以下は、新たにシートを挿入してデータを一時貼り付け、作業後にシートを削除しています。
Sub 工事抽出コピペ02()
Dim Obj As Object
Dim ws As Worksheet
With Sheets("工事台帳")
Set Obj = .Range("E5:E65536").Find(.Range("E2"), LookAt:=xlWhole)
If Obj Is Nothing Then
MsgBox "見つかりませんでした。"
Sheets("工事別表示").Range("B11:F65536").ClearContents
Exit Sub
Else
Set ws = Sheets.Add
Range("工事別明細1,工事別明細2,工事別明細3").ClearContents
.Range("B6").AutoFilter Field:=4, Criteria1:=.Range("E2").Value
.Range("F5:J" & .Range("B65536").End(xlUp).Row).Copy
End If
End With
With ws
.Range("F1").PasteSpecial Paste:=xlPasteValues
.Range("F1:J10").Copy
Range("工事別明細1").Cells(1).PasteSpecial Paste:=xlPasteValues
.Range("F11:J20").Copy
Range("工事別明細2").Cells(1).PasteSpecial Paste:=xlPasteValues
.Range("F21:J30").Copy
Range("工事別明細3").Cells(1).PasteSpecial Paste:=xlPasteValues
End With
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Application.CutCopyMode = False
End Sub
No.3
- 回答日時:
自分がやりたいことを文章で説明すること。
読者にコードだけ書いて読み解かせるようなことはやらないでほしい。
フィルタ(結果が多数行ある場合で)の結果を、離れた3セル範囲に分けて貼り付けたいのなら、質問のコードは無理だろう。
普通のコピー操作でもそんな事は出来ない経験は無いですか。
一旦作業セル範囲の、行と列を使わないとダメでしょう。
例
Sub test01()
'Range("a2, b3, D5").Select
'Range("A1").Copy Range("a2, b3, D5")
'Range("A1").Copy Range(n1, n2, n3)
'Range("abc").Select
'Range("abc,abd,abe").Select
'Range("A1").Copy Range("abc, abd, abe")
Range("A1:A3").Copy Range("abc, abd, abe")
End Sub
はすべてうまく行くようだ(1つだけコメント記号をはずして実行する)
ただしabc、abd、abe は1セルに名前をつけたセル範囲の名前。
ーーーー
Sub test02
Range("A1:A3").Copy Range("xyc, xyd, xye") 'xyc, xyd, xyeはおのおの3セル範囲指定 OK 3->3はOK
Range("A1:A4").Copy Range("xyc, xyd, xye") ''xyc, xyd, xyeはおのおの4セル範囲指定 ERR 3->4はエラ-
End Sub
こういうのをやって試してみれば良い。
みなさま回答をありがとうございました。
教えてくださったのをいろいろ試してみて、うまくいきました。
本当にありがとうございました。
一件一件お礼を書かずにすみません。
No.1
- 回答日時:
一例
Sheets("工事別表示").Range("工事別明細1").PasteSpecial Paste:=xlPasteValues
Sheets("工事別表示").Range("工事別明細2").PasteSpecial Paste:=xlPasteValues
Sheets("工事別表示").Range("工事別明細3").PasteSpecial Paste:=xlPasteValues
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
工事現場の騒音は泣き寝入りす...
-
工事前の挨拶がない業者さんへ
-
建築現場の騒音で気が狂いそうです
-
南側に3階建ての住宅が2軒建ち...
-
土日も近所の新築工事の騒音で...
-
子供による騒音:訴えようと思...
-
工事 騒音 家の前でやっている...
-
近所の工事現場へのクレーム、...
-
【とても困ってます!】隣の工...
-
掘削工事の積算
-
不審者?
-
実家の南側に3階建の家が建つこ...
-
謎の重低音
-
自然発生するモスキート音はあ...
-
境界線ブロック塀の基礎の地中...
-
隣家の解体時にうちの家を壊さ...
-
工事で家が揺れている 誰に言...
-
電気工事などの入線と配線について
-
隣の家が解体されて、私の家に...
-
建築確認申請の後に建てたカー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
工事現場の騒音は泣き寝入りす...
-
建築現場の騒音で気が狂いそうです
-
工事前の挨拶がない業者さんへ
-
南側に3階建ての住宅が2軒建ち...
-
掘削工事の積算
-
近所の工事現場へのクレーム、...
-
土日も近所の新築工事の騒音で...
-
工事 騒音 家の前でやっている...
-
材質 ST
-
工事で家が揺れている 誰に言...
-
子供による騒音:訴えようと思...
-
お隣が新築工事中。非常識では...
-
不審者?
-
【とても困ってます!】隣の工...
-
一軒家の新築工事の休みについて
-
隣の家が解体されて、私の家に...
-
実家の南側に3階建の家が建つこ...
-
工事のことなんですが、これっ...
-
こんな施主は嫌だ!
-
電気工事などの入線と配線について
おすすめ情報