VBA Listobjects диапазон ячеек

Question

Я пытаюсь скопировать ряд ячеек из объекта ListObject в VBA. Мне не нужна вся строка ячеек, мне нужны ячейки из первых двух столбцов в текущей строке данных. Я использую инструкцию «For» для прохождения всех строк в таблице. В приведенном ниже коде я аннотировал, где мне нужен код.

Sub ReportGenerate() 
' 
' Generates invoice for selected firm 
' 
    Dim wkb As Workbook 
    Set wkb = Workbooks.Open("V:\Invoice template.xlsx") 

    Dim crntwb As Workbook 
    Set crntwb = ThisWorkbook 

    Dim invoiceT As Excel.ListObject 
    Set invoiceT = wkb.Worksheets("Sheet1").ListObjects("AppFee") 

    Dim AppT As Excel.ListObject 
    Set AppT = crntwb.Worksheets("App Fee Master List").ListObjects("AppFee") 

    Dim Firm As String 
    Firm = crntwb.Worksheets("App Fee Dashboard").Range("E6").Value 

    wkb.Worksheets("Sheet1").Range("B7").Value = Firm 

    'Start here for code regarding question 
    LastRow = AppT.ListRows.Count 

    For i = 1 To LastRow 
     If AppT.DataBodyRange(i, 5).Value = Firm Then 

     'Code here needs to copy the first two cells in the current row of the AppT ListObject 

     ' invoiceT.ListRows.Add.Range.PasteSpecial xlPasteValues 
     ' Application.CutCopyMode = False 


     End If 

    Next i 


End Sub 

Answer 1

Использование

AppT.DataBodyRange (я, 1) .Resize (, 2) .Copy