QNo.3040449
と同じ内容の質問です。本を見ながらコードを書いてみましたが、
実行時エラー’438 オブジェクトはこのプロパティまたは
メソッドをサポートしていません。となってしまいました。
どこを変更すれば、よいのでしょうか?
また、元データをそれぞれ、<条件>シートの内容で抽出し、
可視セルのみ<集約>にコピーしたのち、他の2つの
ファイルのデーターも先に貼り付けたデータの最後行の
下へコピーしたいのですが、コードがよくわかりません。
教えて頂ければ幸いです。
集約するシート:テスト用.xls sheet1.(集約) sheet2.(条件)
元のデータ: 金額一覧表(01~03).xls Sheet1.(01~03)
金額一覧表(04~06).xls Sheet1.(04~06)
金額一覧表(07~10).xls Sheet1.(07~10)
<各データは1.5万~3万件>
Sub 抽出後コピー()
Dim myTbl As Range, myQry As Range, sakiRang As Range
Dim Nx As Long
Dim WBK As Workbook, WB1 As Workbook
Dim SH1 As Worksheet, SH2 As Worksheet
Set WBK = Workbooks("テスト用.xls")
Set WB1 = Workbooks("金額一覧表(01~3).xls")
Set SH1 = WB1.Sheets("(01-03)")
WBK.Activate
WB1.Activate
Nx = SH1.Range("R65536").End(xlUp).Row
Set myTbl = WB1.SH1.Range("A1:Nx") ←ここでデバック
Set myQry = WBK.Sheets("条件").Range("A1:F27")
Set sakiRang = WBK.Sheets("集約").Range("A1")
myTbl.AdvancedFilter xlFilterCopy, myQry, sakiRng
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>Set myTbl = WB1.SH1.Range("A1:Nx") ←ここでデバック
良く見てください。 A1:Nx なんていうアドレス表記はありえませんよ。範囲がA1~R列の最終行までなら
.Range("A1:R" & Nx)
でしょう
お返事おそくなってすみません。
ご回答ありがとうございます。
.Range("A1:R" & Nx)
と入れてみたのですが、やはり同じところでデバックしてしまいました。
どうも、Set myTbl を変数で宣言しても、サポートしていないようです。
とりあえず、別のやり方で解決できました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
excelの不要な行の削除ができな...
-
Excelマクロ 差分抽出の方法が...
-
Googleスプレッドシートフィル...
-
オートフィルタで抽出したデー...
-
Excelで改ページプレビュー、ズ...
-
他のシートの一番下の行データ...
-
シート削除して同名シート追加...
-
トランジスタの選び方
-
EXCEL 複数行のデータを1行にま...
-
EXCELで2つのファイルから重複...
-
別々のシートの表をピボットテ...
-
CMOS-IC CD4007UBEのnmosfetの...
-
Excelでのデータ管理
-
時間帯の重複を除いた集計について
-
Excel 売上管理シートに入力し...
-
エクセル 縦に長い表の印刷時...
-
EXCEL VBA 担当者毎にファイル作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
Excelで日付変更ごとに、自動的...
-
VBAで CTRL+HOMEの位置へ移動...
-
トランジスタの選び方
-
EXCELで2つのファイルから重複...
-
EXCEL 複数行のデータを1行にま...
-
他のシートの一番下の行データ...
-
オートフィルタで抽出したデー...
-
エクセルのカメラ機能について
-
(VBAにて)日付でデータを抽出す...
-
エクセルで名簿を50音で切り分ける
-
別々のシートの表をピボットテ...
-
Excel 売上管理シートに入力し...
-
Excelマクロ 差分抽出の方法が...
-
EXCEL の表を一行ずつシートに...
-
エクセルVBAで、特定文字から始...
おすすめ情報