Блог

Я начинающий программист, когда дело доходит до VBA, и я пишу код, который сканирует несколько критериев, а затем копирует и вставляет на другой лист. Сейчас у меня есть 2 листа, Лист1 и Лист2, сначала мне нужно будет отсканировать J9 на листе 1, а затем выполнить поиск листа 2 для J9 листа 1, после чего я перенесу все с J9 из листа 2 в Лист1, начиная с определенной строки, я пробовал выполнять автофильтр, но, поскольку я редко новичокЯ считаю, что мой код должен быть устаревшим, пожалуйста, будьте проще со мной. Заранее большое спасибо! PS (я использую VBA 2013)

Sub tgr()

 Dim wsData As Worksheet
Dim wsDest As Worksheet
Dim acrit() As String

Set wsData = Sheets("MaterialReport")    'Copying FROM this worksheet (it contains your data)
Set wsDest = Sheets("TIMINGBELTWPULLEY")        'Copying TO this worksheet (it is your destination)

'Populate your array of values to filter for
ReDim acrit(1 To 2)
acrit(1) = "TIMING"

acrit(2) = "PULLEY"



With wsData.Range("C1", wsData.Cells(wsData.Rows.Count, "C").End(xlUp))
    .AutoFilter 1, aFruit, xlFilterValues   'Filter using the array, this avoids having to do a loop

    'Copy the filtered data (except the header row) and paste it as values
    .Offset(1).EntireRow.Copy
    wsDest.Cells(wsDest.Rows.Count, "B29").End(xlUp).Offset(1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False     'Remove the CutCopy border
    .AutoFilter     'Remove the filter
End With
 

Это мой код, с которым я работаю, я взял его с учебного сайта и отредактировал в соответствии со своими потребностями