вставка данных vba

image Я настраиваю лист с информацией о гостиницах, а в колонке «D» есть больницы, которые близки, например, PMH, SCGH, FSH. То, что я пытаюсь сделать, это поиск столбца «D» на основе значения ячейки на том же листе. У меня есть код ниже, но он будет делать только то, что я хочу, если ячейки в столбце «D» являются одиночными, например, pmh. Мне нужно иметь возможность искать все ячейки в столбце «D» для любого экземпляра текста.

Большое спасибо за любую помощь

`Option Explicit Sub finddata() Dim hospitalname As String Dim finalrow As Integer Dim i As Integer Sheets("Results").Range("A4:D100").ClearContents Sheets("Main").Select hospitalname = Sheets("Main").Range("g3").Value finalrow = Sheets("Main").Range("A1000").End(xlUp).Row For i = 2 To finalrow If Cells(i, 4) = hospitalname Then Range(Cells(i, 1), Cells(i, 4)).Copy Sheets("Results").Range("A4").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats End If Next i Sheets("Main").Range("g3").Select End Sub 

`

Два простейших способа сделать это:

  1. Использование оператора Like :

     If Cells(i, 4).Value Like "*" & hospitalname & "*" Then 

    Этот метод имеет тот недостаток, что название больницы, например, PMH может быть сопоставлено с другим, таким как SPMH .

  2. Использование функции InStr :

     If Instr("," & Cells(i, 4).Value & ",", "," & hospitalname & ",") > 0 Then 

    В этой строке я «обертываю» как просматриваемую ячейку, так и ",PMH,SCGH,FSH," значение внутри запятых, чтобы он заканчивал поиск строки (например) ",PMH," внутри строки ",PMH,SCGH,FSH," . InStr вернет позицию символа, в которой происходит совпадение, или ноль, если совпадение не найдено. Поэтому тестирование для > 0 проверяет, произошло ли совпадение.

Interesting Posts

Экспорт phpexcel в excel с изображением

Получение колонки на следующей строке в Excel с помощью макроса

Проверка Excel для нескольких значений вставки

Ошибка при попытке скопировать Excel Range и PasteSpecial в слайде PowerPoint (используя Late Binding)

Повторное сканирование существующих файлов, хранящихся во внутренней памяти в android с помощью java

Прочитайте базу данных Sql и результат для Excel в python

Excel Macro для vlookup Различные вопросы: изменить # n / a на ноль; непосредственно найти значение поиска и вставить значение результата

Ошибка верхней границы в nloptr

Подсчет количества использованных ячеек в столбце рядом с найденной Строкой

открывать и сохранять таблицу Excel 2003 каждые десять минут

Как поместить формулу в список проверки данных Excel?

Среднее значение Regex Excel Excel

VBA Excel – выберите все строки со значением в столбце

Выбор столбцов, имеющих значения в макросе Excel (объект диапазона в VBA)

Как передать файл twbx, чтобы другая сторона не имела файлы excel и могла обновлять данные?

Давайте будем гением компьютера.