Блог

Главная - Вопросы по программированию - Извлечение текста из строки и добавление, если его нет в исходном диапазоне данных

Извлечение текста из строки и добавление, если его нет в исходном диапазоне данных

#instr

Вопрос:

У меня есть следующий код, который извлекает данные из столбца и вводит их, если они сначала находятся в исходном наборе данных — это отлично работает в банкомате, но я пытаюсь заставить его вводить все, что не найдено в исходных данных.

У меня есть это до сих пор —
ПодфактОрный форум()

 Dim Main_Sheet: Set Main_Sheet = Worksheets("Main_Sheet")
Dim Factory_Forum: Set Factory_Forum = Worksheets("Factory_Forum")
Dim x As Integer
Dim y As Integer
Dim lastRow As Integer
Dim a As String
Dim RowCounter As Integer


RowCounter = Worksheets("Main_Sheet").Range("A1").CurrentRegion.Rows.Count
'lastrow = ("A1"   RowCounter)

Main_Sheet.Range("V2:V800").ClearContents

For x = 2 To RowCounter
a = Right(Main_Sheet.Cells(x, 3), 6)
For y = 2 To RowCounter

If InStr(Factory_Forum.Cells(y, 11), a) > 0 Then
    Main_Sheet.Cells(x, 22).Value = "YES"
End If

Next
Next

MsgBox ("DONE :)")
End Sub

и это работает —

Я попробовал это, но это просто стерло все исходные данные. Подзаголовок Add_Parts_To_WR()

 Dim Main_Sheet: Set Main_Sheet = Worksheets("Main_Sheet")
Dim Factory_Forum: Set Factory_Forum = Worksheets("Factory_Forum")
Dim xx As Integer
Dim yy As Integer
Dim lastrow As Integer
Dim aa As String
Dim RowCounterFF As Integer

RowCounterFF = Worksheets("Main_Sheet").Range("A1").CurrentRegion.Rows.Count

For xx = 2 To RowCounterFF
aa = Right(Main_Sheet.Cells(xx, 3), 6)
For yy = 2 To RowCounterFF

 If InStr(Factory_Forum.Cells(yy, 11), aa) <> Main_Sheet.Cells(xx, 3).Value Then
     Main_Sheet.Cells(xx, 3).Value = Factory_Forum.Cells(yy, 11)
 End If

Next
Next


End Sub

Пожалуйста, помогите

Метки: ,