Проверьте, содержит ли строка подстроку

Question

У меня есть подстрока в столбце «A» на Sheet2, которую я использую, используя функцию ВЛЕВО.Это меняется при каждом импорте, и я пытаюсь найти его в столбце «AI» Sheet1.Затем я хочу скопировать столбцы из «AI» в «AF» из Sheet1 и вставить их в Sheet2.Что я делаю не так?

Sub InStrDemo()

Dim lastrow As Long
Dim i As Integer, icount As Integer
Dim LResult As String

LResult = Sheets("Sheet2").Range("A2")
LResult = Left(LResult, 4)
lastrow = Sheets("Sheet1").Range("A30000").End(xlUp).Row

icount = 1
For i = 2 To lastrow

If InStr(1, LCase(Range("AI" & i)), LCase(LResult)) <> 0 Then

    icount = icount + 1
    Sheets("Sheet2").Range("B" & icount & ":E" & icount) = 
    Sheets("Sheet1").Range("AF" & i & ":AI" & i).Value
End If

Next i

End Sub

Answer 1

Вы пытаетесь скопировать и вставить, после = должно быть _, если вы пытаетесь сравнить. Посмотрите, работает ли оно:

Sheets("Sheet2").Range("B" & icount & ":E" & icount) = _
Sheets("Sheet1").Range("AF" & i & ":AI" & i).Value