скопировать диапазон ячеек vba

У меня есть ряд ячеек в Excel, которые мне нужно скопировать на один и тот же лист, но в другом столбце.

Строки 29 – 44 из столбца E необходимо скопировать в столбец B. Простой.

НО, скопированные ячейки не должны содержать значение EGA .

Думаю, мне нужно повторить, но я не знаю, как это сделать.

Как я могу это сделать?

Попробуйте что-то вроде этого:

Sub NoEGA() Dim vArr As Variant Dim j As Long vArr = Range("E29:E44") For j = 1 To UBound(vArr) If UCase(vArr(j, 1)) = "EGA" Then vArr(j, 1) = "" Next j Range("B29:B44") = vArr End Sub 

Как насчет использования InStr?

 Sub CopyWithoutEGA() Dim Tests As Range Set Tests = Range("E29") Dim Output As Range Set Output = Range("B29") Dim Contents As String Dim nIndex As Long Dim nMaxIndex As Long nIndex = 1 nMaxIndex = 16 While nIndex <= nMaxIndex Contents = Tests.Cells(nIndex, 1) If (InStr(1, Contents, "EGA", 1)) Then Output.Cells(nIndex, 1) = "This contains EGA" Else Output.Cells(nIndex, 1) = Contents End If nIndex = nIndex + 1 Wend End Sub 
Interesting Posts

Чтение имени столбца SSIS Excel из файла

MS Excel 03 – Удаление строк, содержащих идентификаторы строки в столбце A, при объединении других значений

excel fix значение столбца, изменить значение строки, непересекающуюся строку

Фильтрация нескольких критериев в разных столбцах, включая строку и дату в VBA

Печать динамического массива ошибок на листе

Что эквивалентна функции части Microsoft Word Quick в Excel

Метод поиска имеет синтаксическую ошибку при использовании LookAt

найти самую новую запись для каждого элемента из списка

Логическая формула в Excel – нужна помощь

VBA Поиск углов выбора

Excel Macro для поиска файлов на основе ключевого слова и возврата true, если они присутствуют

Не удается отправить вложение в сообщениях электронной почты с помощью макроса VBA

Книга медленная и сбой из-за кода VBA? В любом случае, чтобы остановить это / ускорить это?

Я не могу экспортировать таблицу в excel

Преобразование научного числа, считанного с excel в csv

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