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:J65536").Copy
End If
End With
Sheets("工事別表示").Range("B11").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
これを起動させると、
Sheets("工事別表示").Range("B11").PasteSpecial Paste:=xlPasteValues
の部分が黄色くなり、
実行時エラー'1004'「コピー領域と貼付領域の形が違うため、情報を貼り付けることができません」
という表示が出てきます。
これはどういう意味なのでしょうか?
ちなみにコピー領域セルも貼付領域セルも結合はなく、行・列の幅も同じです。
このコードもいろいろな本やサイトで教えてもらったのを参考に作っているので、私自身深く理解せずに書いているところもあります。
どなたか教えてくださる方、よろしくおねがいします。
No.1ベストアンサー
- 回答日時:
原因は、この「.Range("F5:J65536").Copy」の部分の65536です。
コピーした範囲は65532行あるのに、貼り付け先がB11であるから、65526行分しか貼り付け出来ないというエラーとなっているのです。
Sheets("工事別表示").Range("B11").PasteSpecial Paste:=xlPasteValues
のB11をB5に変更すれば問題ないのですが、様式を変更せずにするには、65536ではなく、最終行をちゃんと取得してあげればOKです。
で、B列で最終行を取得する場合、
「.Range("F5:J65536").Copy」の部分を以下の様に修正すればOKです。
.Range("F5:J" & .Range("B65536").End(xlUp).Row).Copy
>65536ではなく、最終行をちゃんと取得してあげればOKです。
分かりました。
出来ました~!(^^)!
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 12:00
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
工事現場の騒音は泣き寝入りす...
-
工事前の挨拶がない業者さんへ
-
建築現場の騒音で気が狂いそうです
-
南側に3階建ての住宅が2軒建ち...
-
土日も近所の新築工事の騒音で...
-
掘削工事の積算
-
近所の工事現場へのクレーム、...
-
材質 ST
-
お隣が新築工事中。非常識では...
-
子供による騒音:訴えようと思...
-
不審者?
-
工事 騒音 家の前でやっている...
-
工事で家が揺れている 誰に言...
-
【とても困ってます!】隣の工...
-
こんな施主は嫌だ!
-
実家の南側に3階建の家が建つこ...
-
アパートの一室に住んでいる住...
-
私有地に工事用車両を駐車させ...
-
工事のことなんですが、これっ...
-
電気工事などの入線と配線について
おすすめ情報