Поиск текста

@Batosay · Регистрация: 27.01.2014

Студворк — интернет-сервис помощи студентам

Добрый день!
Возникла следующая проблема:
Необходимо найти все ячейки в диапазоне А10:А50, содержащие слово qwe.
После этого в соответствующие строки столбца B вписать эти значения + значение строки ниже через знак ";".

Например:
Столбец А
qwe
rty
12
15
qwe-1
58

В столбце В должно получиться следующее:
qwe;rty
rty
12
15
qwe-1;58
58

@Vlad999 · 06.12.2017, 10:33

Visual Basic
1
2
3
For each cl in Selection
    If cl.value = "qwe" Then cl.value = cl.value & ";" & cl.Offset(1).value
next

@fever brain · 06.12.2017, 10:36

---

@fever brain · 06.12.2017, 10:43

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Заполнить()
    Dim a, i&, j&
    a = Split("Например:\\Столбец А\\qwe\\rty\\12\\15\\qwe-1\\58", "\\")
    On Error Resume Next
    With [a10:a50]
        For i = 1 To .Cells.Rows.Count: For j = 1 To .Cells.Columns.Count
            .Cells(i, j).Value = a(i - 1)
        Next j, i
    End With
End Sub
 
Sub Сделать()
    Dim i&, j&
    With [a10:a50]
        For i = 1 To .Cells.Rows.Count: For j = 1 To .Cells.Columns.Count
            With .Cells(i, j)
                If InStr(1, .Value, "qwe") Then
                    i = i + 1
                    Cells(.Row, .Column + 1) = .Value & ";" & Cells(.Row + 1, .Column)
                End If
            End With
        Next j, i
    End With
End Sub

Остап Бонд · 06.12.2017, 10:45

Сообщение от Vlad999

If cl.value = "qwe"

Visual Basic
1
If instr(cl.value, "qwe")

-если следовать задаче...

@fever brain · 06.12.2017, 10:53

Сообщение от Остап Бонд

If instr(cl.value, "qwe")

If instr([Start],cl.value, "qwe")

Остап Бонд · 06.12.2017, 10:58

Сообщение от fever brain

а для меня замечания будут ?

Естественно.

Сообщение от Batosay

В столбце В должно получиться следующее:
qwe;rty
rty
12
15
qwe-1;58
58

Где выделенные значения в вашем ответе?

Сообщение от fever brain

[Start]

- необязательный параметр, если ищем с начала строки (или что вы хотели сказать этим выделением???)

@fever brain · 06.12.2017, 11:05

Сообщение от Остап Бонд

необязательный параметр

в vba необязательный, забыл про это
Исправил все

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Заполнить()
    Dim a, i&, j&
    a = Split("Например:\\Столбец А\\qwe\\rty\\12\\15\\qwe-1\\58", "\\")
    On Error Resume Next
    With [a10:a50]
        For i = 1 To .Cells.Rows.Count: For j = 1 To .Cells.Columns.Count
            .Cells(i, j).Value = a(i - 1)
        Next j, i
    End With
End Sub
 
Sub Сделать()
    Dim i&, j&, ii&
    With [a10:a50]
        For i = 1 To .Cells.Rows.Count: For j = 1 To .Cells.Columns.Count
            With .Cells(i, j)
                ii = Abs(InStr(.Value, "qwe") > 0): i = i + ii
                Cells(.Row, .Column + 1) = .Value & IIf(ii, ";" & Cells(.Row + 1, .Column), "")
            End With
        Next j, i
    End With
End Sub

Остап Бонд · 06.12.2017, 11:13

rty и 58 без пары остались?

Visual Basic
1
2
3
4
Dim cl As Range
For Each cl In Selection
    If InStr(cl.Value, "qwe") Then cl.Offset(, 1) = cl & ";" & cl.Offset(1) Else cl.Offset(, 1) = cl
Next

Добавлено через 1 минуту

Сообщение от fever brain

: i = i + ii

- это лишнее.

@fever brain · 06.12.2017, 11:24

Тогда в идеале должно быть так:

Visual Basic
1
2
3
4
5
6
Sub Сделать()
    Dim cl As Range
    For Each cl In [a10:a50] 'только диапазон Selection не использовать
        If InStr(cl.Value, "qwe") Then cl.Offset(, 1) = cl & ";" & cl.Offset(1) Else cl.Offset(, 1) = cl
    Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

Поиск текста

Решение

Решение

@Batosay 2 / 2 / 1 Регистрация: 27.01.2014 Сообщений: 172

	Поиск текста 06.12.2017, 09:51. Показов 2572. Ответов 9 Метки нет (Все метки) Добрый день! Возникла следующая проблема: Необходимо найти все ячейки в диапазоне А10:А50, содержащие слово qwe. После этого в соответствующие строки столбца B вписать эти значения + значение строки ниже через знак ";". Например: Столбец А qwe rty 12 15 qwe-1 58 В столбце В должно получиться следующее: qwe;rty rty 12 15 qwe-1;58 58 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	06.12.2017, 10:36
	--- 0