下記のようなコードを組んだのですが、
エラーが発生しうまく進めません。
どのように修正すればよいか
ご教示いただけると助かります。
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になった時の...
-
ADODB.Streamを使用してUTF-8を...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
Excelで下記のようにマクロを作...
-
実行時エラー3001「引数が間違...
-
実行時エラー -'-2147417848
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBS実行時エラー オブジェクト...
-
エラーでつまってます・・・お...
-
Application.ActiveInspectorで...
-
ACCESS2000VBAでエラー「型が一...
-
マクロについて教えてください...
-
VBで構造体を使うさ際の64k...
-
VBAのコードがエラーになっ...
-
ExcelのVBAのAutoFillの使い方...
-
1列目の何行目に検索文字がある...
-
VBSで変数の宣言はできないので...
-
OLEDB.NETで接続できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
VBAがブレークモードになっ...
-
ExcelVBA Range クラスの Page...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
ADODB.Streamを使用してUTF-8を...
-
VBAでのエラー
-
実行時エラー48発生時のDLL特定...
-
Outlook.ApplicationをCreateOb...
-
VB6+SQL サーバー 2000 で 実行...
-
実行時エラー -'-2147417848
-
「コンパイルエラー:プロシー...
おすすめ情報