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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
土日も近所の新築工事の騒音で...
-
南側に3階建ての住宅が2軒建ち...
-
工事現場の騒音は泣き寝入りす...
-
工事前の挨拶がない業者さんへ
-
建築現場の騒音で気が狂いそうです
-
不審者?
-
工事のことなんですが、これっ...
-
子供による騒音:訴えようと思...
-
お隣が新築工事中。非常識では...
-
近所の工事現場へのクレーム、...
-
工事 騒音 家の前でやっている...
-
土曜日の道路工事は何とかなら...
-
新築ですが、先に建てているお...
-
【とても困ってます!】隣の工...
-
計画地盤高のFHは標高ですか?
-
工事で家が揺れている 誰に言...
-
謎の重低音
-
給湯器の設置に隣人からクレー...
-
来週の火曜日に上棟があります...
-
基礎工事をする人は何て呼ばれ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
工事現場の騒音は泣き寝入りす...
-
近所の工事現場へのクレーム、...
-
工事前の挨拶がない業者さんへ
-
南側に3階建ての住宅が2軒建ち...
-
材質 ST
-
不審者?
-
建築現場の騒音で気が狂いそうです
-
土日も近所の新築工事の騒音で...
-
掘削工事の積算
-
工事 騒音 家の前でやっている...
-
お隣が新築工事中。非常識では...
-
工事で家が揺れている 誰に言...
-
アパートの一室に住んでいる住...
-
【とても困ってます!】隣の工...
-
隣の家が解体されて、私の家に...
-
実家の南側に3階建の家が建つこ...
-
計画地盤高のFHは標高ですか?
-
私有地に工事用車両を駐車させ...
-
子供による騒音:訴えようと思...
-
自宅のフェンスに、隣家の布団...
おすすめ情報