![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のようなコードを組んだのですが、
エラーが発生しうまく進めません。
どのように修正すればよいか
ご教示いただけると助かります。
On Error Resume Nextを使うと
別のところに貼り付けられました。。。
With Sheets("移行前").Select
Selection.End(xlUp).Select
Range("AV1:AW1").Select
ActiveCell.Offset(1, 0).Activate
Range("AV3:AW" & Cells(3).CurrentRegion.Rows.Count).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With
With Sheets("データシート").Select
Set FoundCell = Range("2:2").Find(What:="仮金額")
Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1 ←エラー:オブジェクトが必要です。
Cells(N, FoundCell.Column).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
No.5ベストアンサー
- 回答日時:
Sub goo02()
Dim N As Long
Dim FoundCell As Range
Sheets("移行前").Select
Range("AV3:AW" & Cells(3, "AW").End(xlDown).Row).Copy
Sheets("データシート").Select
Set FoundCell = Range("2:2").Find(What:="仮金額", LookIn:=xlValues, LookAt:=xlWhole)
N = Cells(Rows.Count, FoundCell.Column).End(xlUp).Row + 1
Cells(N, FoundCell.Column).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End Sub
No.4
- 回答日時:
>Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
【.Rows.Count】の前の、withは、【With Sheets("データシート")】になっていて、【FoundCell 】ではないので、そこがエラーの原因でしょう。
変数「N」は長整数型(または整数型)ですよね?
>Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
⇒ N = Cells(FoundCell .Rows.Count, FoundCell.Column).End(xlUp).Row + 1
>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
【 Paste】するものがないです。コピーしておく必要があると思います。
⇒
Cells(N, FoundCell.Column).Select
Selection.copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ただ、このコードは何をしようとしているのかがわかりません。
また、.Select をこのように使う理由がわからないです。
Setの使い方も、理由がわかりません。
No.3
- 回答日時:
こんにちは!
変数「N」を何の型で宣言しているのか不明ですが・・・
コードを拝見する限り、変数「N」は長整数型(または整数型)ですよね?
となると
>Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
は
>N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
で良いと思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) VBAで実行時エラー'424' オブジェクトが必要ですと出る 2 2022/10/07 09:25
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
マクロについて教えてください...
-
日本語環境下で作成したマクロ...
-
【Excel VBA】マクロをボタンに...
-
「コンパイルエラー:プロシー...
-
プロシージャの呼び出し、また...
-
エクセルVBAで以下のようなコー...
-
Access2000での未定義関数repla...
-
VBS実行時エラー オブジェクト...
-
VB6+SQL サーバー 2000 で 実行...
-
エラー1004 PDFの保存ができま...
-
【VBA】ボタンに登録したマクロ...
-
アクセス 実行時エラー3265
-
C++Builder 6 : TListView でエ...
-
【VBA-AC2000】カレントプロシ...
-
実行エラー9 インデックスが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
実行時エラー -'-2147417848
-
マクロについて教えてください...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
ADODB.Streamを使用してUTF-8を...
-
VBS実行時エラー オブジェクト...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
なぜエラーになるのでしょうか...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
Application.ActiveInspectorで...
-
Excelで下記のようにマクロを作...
おすすめ情報