Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 14.02.2020
Сообщений: 5
1

Макрос для поиска ячеек с заданным значением и вставка заданного количества столбцов справа каждой найденной ячейки

14.02.2020, 09:51. Показов 353. Ответов 5
Метки нет (Все метки)

Добрый день!
Прошу подсказать как написать макрос для excel таблицы, чтобы искал все ячейки строки 7 со значением "февраль" и вставлял количество столбцов справа от каждой найденной ячейки. Количество столбцов брать из ячейки А1.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2020, 09:51
Ответы с готовыми решениями:

Вставка пустых ячеек (строк) после ячейки с определённым значением
Здравствуйте! Хотелось бы попросить помощи по моей проблеме. Есть таблица, в ней всё в один...

Выборка в одной строке имен столбцов с заданным значением ячейки
Здравствуйте, друзья! Уже несколько дней напрягаю свой мозг, но толкового в голову не лезет....

Макрос копирования ячеек, находящихся ниже найденной
Доброго времени суток, Форумчане. Прошу помощи в решении сложившейся ситуации. Необходим...

Замена в каждой строке заданного количества первых символов заданным текстом
program zamena; uses crt; Var f1: text; i,n,k: byte; s1,t: string; begin clrscr;...

5
1746 / 895 / 176
Регистрация: 13.12.2016
Сообщений: 3,034
Записей в блоге: 3
14.02.2020, 10:08 2
цикл надо начинать с конца до первой записи иначе будет лабуда.
1
4115 / 2221 / 939
Регистрация: 01.12.2010
Сообщений: 4,625
14.02.2020, 10:19 3
Visual Basic
1
2
3
4
5
6
Private Sub Test()
    Dim i&, c&: c = [A1]
    For i = Cells(7, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If LCase(Cells(7, i)) = "февраль" Then Columns(i + 1).Resize(, c).Insert
    Next
End Sub
или так

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Test2()
    Dim c&, cell As Range, col As New Collection: c = [A1]
    For Each cell In Range([A7], [A7].End(xlToRight))
        If LCase(cell) = "февраль" Then col.Add cell
    Next
    For Each cell In col
        cell.EntireColumn(2).Resize(, c).Insert
    Next
End Sub
1
0 / 0 / 0
Регистрация: 14.02.2020
Сообщений: 5
14.02.2020, 11:21  [ТС] 4
Спасибо!
Первый вариант работает, а второй вставляет только после первого найденного "февраль", а после второго, третьего и т.д. не вставляет
0
4115 / 2221 / 939
Регистрация: 01.12.2010
Сообщений: 4,625
14.02.2020, 11:28 5
AnnaPav, Имею наглость утверждать, что оба варианта рабочие.
0
Вложения
Тип файла: zip Sample_for_AnnaPav.zip (8.8 Кб, 2 просмотров)
0 / 0 / 0
Регистрация: 14.02.2020
Сообщений: 5
14.02.2020, 12:02  [ТС] 6
Буду разбираться, но пока не могу найти ошибку(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2020, 12:02

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Объед ячеек столбцов одной строки в ячейку с разделением построчно каждой ячейки столбца
Описание действия: Предположим у нас имеется таблица, состоящая из трех столбцов: id Name Дата...

Файлы: замена в каждой строке заданного количества первых символов заданным текстом
Помогите пожалуйста с программкой Нужно "Замена в каждой строке заданного количества первых...

Макрос для поиска ячейки по № из Столбца В в столбце Е
HELP!!! Очень нужна помощь умных людей. Помогите выбратся из умственного перегруза, морального...

Реализовать операцию поиска узла с заданным значением в дереве, не являющемся деревом поиска
На основе процедуры обхода дерева снизу вверх реализовать операцию поиска узла с заданным значением...

Макрос: Поиск значения (текст) и сложение ячейки справа от него
Дана таблица во вложении. Нужно: Провести поиск значения "Принтеры", и при нахождении складывать...

Написать функцию поиска структуры с заданным значением
Здравствуйте уважаемые программисты. Помогите пожалуйста с программой. Написать функцию поиска...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.