☰

Excel マクロ: シートからテーブルに値を貼り付ける際のエラー

tag-icon • tag-icon microsoft-excel macros
Excel マクロ: シートからテーブルに値を貼り付ける際のエラー

ワークシート「プロジェクト概要データ」からデータをコピーし、ワークシート「プロジェクト コスト レポート概要」の表に貼り付けようとしています。マクロについてはまったくの初心者なので、何が間違っているのかよくわかりませんが、エラーはこの部分にあるようですtbl.Range("D7").Paste。

「プロジェクト コスト レポートの概要」のセル「D7」にデータを貼り付ける必要があります。これは技術的には、表の最初のデータ行 (ヘッダーなし)、表の 4 番目の列になります。

私が受け取ったエラーは、実行時エラー '1004': 範囲クラスの選択プロパティを取得できません

Sub filter_copy_paste()

Dim region As String
Dim Report As Worksheet
Dim Data As Worksheet
Dim count_col As Integer
Dim count_row As Integer
Dim tbl As ListObject


Set Report = ThisWorkbook.Sheets("Project Cost Report Summary")
Set Data = ThisWorkbook.Sheets("Project Summary Data")
region = Data.Range("I1").Text
Set tbl = Report.ListObjects("Table2")

'determine the size of the range
Data.Activate
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))

'filter data on Raw Data tab
Data.Range("A1").AutoFilter field:=1, Criteria1:=region

'Copy and Paste to Cost Report

Data.Range(Cells(2, 2), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy
tbl.Range("D7").Paste
Application.CutCopyMode = False

'Show Data and Remove the Filter
With Data
.ShowAllData
.AutoFilterMode = False

End With

End Sub

関連情報