Уважаемые форумчане, добрый день!
Подскажите, как сделать так, чтобы после нахождения числа в определенном столбце, и выполнения действий со строкой где нашлось это число, продолжить поиск, и в случае повтороного нахождения числа делать теже действия и с этой строкой?
Текстовый пример:
Есть столбец А - в нем хранятся цифры.
Есть стоблбцы B-ФФ - хранятся разные данные.
При каждом нахождении цифры (например 3), надо скопировать несколько столбцов в строке,которой стоит цифра 3.
Код, который я использую для поиска:
Я так понимаю, что надо использовать for each? Но пока не понял как это сделать...
Подскажите, как сделать так, чтобы после нахождения числа в определенном столбце, и выполнения действий со строкой где нашлось это число, продолжить поиск, и в случае повтороного нахождения числа делать теже действия и с этой строкой?
Текстовый пример:
Есть столбец А - в нем хранятся цифры.
Есть стоблбцы B-ФФ - хранятся разные данные.
При каждом нахождении цифры (например 3), надо скопировать несколько столбцов в строке,которой стоит цифра 3.
Код, который я использую для поиска:
Код |
---|
Sub example iResult = InputBox("Укажите номер ", "Введите цифру") If iResult = "" Then MsgBox "Ни одного значения не введено!", vbCritical Exit Sub ElseIf iResult <> 0 Then Set GCell = Sheets("Лист1").Columns("A:A").Find(What:=iResult, LookIn:=xlValues, LookAt:=xlWhole) If GCell Is Nothing Then MsgBox "Цифра " & iResult & " не найдена", vbExclamation, "Ошибка" Exit Sub Else Sheets("Лист1").Range(GCell.Offset(0, 14), GCell.Offset(0, Range("Лист2!А1").Value - 1 + 13)).Copy ' определяю количество столбцов в этой строке, из ячейки в другом листе, которые надо скопировать Sheets("Лист2").Range("B1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True end sub |
Я так понимаю, что надо использовать for each? Но пока не понял как это сделать...