неправильно объявляет вариант, чтобы указать одну ячейку

Question

Я считаю, что код работает, если я могу правильно объявить имя теста.Это должна быть ячейка E2 на листе сырья.Если я введу «E2», это сработает, но имя теста не увеличивается.

Я тоже пробовал Range.Не вижу, что я делаю не так.

Sub findcomponents()


Dim raw As Worksheet: Set raw = ThisWorkbook.Sheets("rawdata")
Dim res As Worksheet: Set res = ThisWorkbook.Sheets("resultcomponents")
Dim temp As Worksheet: Set temp = ThisWorkbook.Sheets("uploadtemplate")

Dim testname As String
Dim LR1 As Long, LR2 As Long, i As Long, j As Long


LR1 = raw.Range("A" & raw.Rows.Count).End(xlUp).Row
LR2 = res.Range("A" & res.Rows.Count).End(xlUp).Row
testname = raw.Cells(j, 5)

For j = 2 To LR1

    For i = 2 To LR2
        If res.Cells(i, 4) = testname Then
            res.Range(res.Cells(i, 2), res.Cells(i, 4)).Copy
            temp.Range("B10000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            raw.Range(raw.Cells(j, 3), raw.Cells(j, 3)).Copy
            temp.Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial 
xlPasteValues
        End If
    Next i
Next j

End Sub

Код должен запустить список тестов и сравнить его с компонентами теста на отдельной рабочей таблице - вставьте идентификатор образца, идентификатор компонента и описания на третийлист

Answer 1

j Не заполняется во время его использования.Вам нужно начать j с числового значения или добавить эту строку в свой цикл