Нужно автоматизировать заполнение ячеек

@miomio · Регистрация: 13.06.2010

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

Прошу помощи в написании макроса.
Имеется два столбца A,B
В этих столбцах имеются данные
[столбец А] [столбец B]
405 10
- -
- -
- -
405 20
- -
- -
- -
- -
- -
- -
408 50
- -
И т.д.
В ручную делается утомительная операция - выделение значения в столбиках А и B (405 и 10 соответсвенно)протягивание до следующих значений (405 и 20) и заполнение CTRL+D (Заполнить вниз)
Нельзя ли как-то автоматизировать этот каторжный труд(количество строк доходит иногда до 7000-8000 строк)?
Буду очень признателен за помощь.

@vlth · 14.06.2010, 13:25

2IgorT Не грусти: в макросе использована твоя логика.
Спаибо за поправку

))

@IgorTr · 14.06.2010, 13:33

2miomio
надо выделить диапазон, где ты хочешь его использовать. А так он отработает на одной ячейке

2vith
я уже весёлый :-)
не подумай что на веселе

@miomio · 14.06.2010, 13:34 **[ТС]**

vlth!
Ур-а-а-а-а-а!Заработало!!!!!
Вот только какая человеческая натура...Это я про себя...
Еще пару минут меня якобы устраивала остановка макроса на 8000 строке...
Я указал 8000 строку как максимально возможную,но в реальности есть и меньшие массивы.Значит прийдеться все лишнее убирать вручную или сделать макросы для разных 'длинн' (1000строк,2000строк и т д.)?
Или быть может есть более изящнее решение?
Дело еще в том,что по окончанию всех значений у меня есть запись,к примеру 'Конец всех значений' или 'Stop'.
Нельзя ли останавливать макрос при 'попадании' его на это слово?

@miomio · 14.06.2010, 13:51 **[ТС]**

IgorT!
Да это просто праздник какой-то!
И твой макрос тоже работает!Супер!
Я выделяю диапазон и...О,чудо!

Ребята!Я так благодарен Вам!Ну так...ну...просто 'я задыхаюсь от...' мгм...радости!
Все!Буду прославлять и боготворить!Чесслово!Спасители!Ура!

@vlth · 14.06.2010, 13:56

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Example2()
Dim i As Long, k As Long
On Error GoTo ExSub
With ActiveSheet
    k = Range('A:B').Find(What:='Конец всех значений', LookIn:=xlValues).Row - 2
    For i = ActiveCell.Row To k
        If IsEmpty(.Cells(i + 1, 1)) Then
            .Cells(i + 1, 1) = .Cells(i, 1)
            .Cells(i + 1, 2) = .Cells(i, 2)
        End If
    Next i
End With
Exit Sub
ExSub: MsgBox 'Ошибка выполнения макроса.', vbCritical
End Sub

@vlth · 14.06.2010, 14:02

Для порядка в записях:
k = .Range('A:B').Find(What:='Конец всех значений', LookIn:=xlValues).Row - 2
(Добавлена точка перед словом 'Range', т.е. указывается диапазон на
активном листе).

@miomio · 14.06.2010, 14:03 **[ТС]**

Кла---а-----а----сссссс!
То что нужно!
Все,теперь новый график работы:
1.работа - 5 минут
2.порносайты - все остальное!

Шутка,конечно же.
Могу ли я еще воспользоваться Вашими знаниями?

@vlth · 14.06.2010, 14:20

Думаю - и нашими, а также знаниями и опытом всех остальных - без проблем

))

@vlth · 14.06.2010, 14:23

Да, забыл спросить про самое интересное: а что это за работа
такая, - 'творческая'?

@miomio · 14.06.2010, 14:25 **[ТС]**

Спасибо еще раз!
Тогда иду новую тему заявлять.

@miomio · 14.06.2010, 14:53 **[ТС]**

Да работа совсем не творческая - это у меня такой подход к работе.
Остальные предпочитают сто раз скопировать и сто раз вставить одни и те же значения а при слове 'макрос' ,'автоматически' вздрагивают как в 30годы,при Сталине.
Работа заключается в проверке накладных.И вот с Вашей помощью некоторая часть этой работы стала намного легче.Но до полной автоматизации еще далеко.
Есть основная проблема.Экспорт данных в Excel.
Исходные данные приходят в формате htm.
Да,да: 'Открывай в Excel файл данного формата и работай с ним!' скажут некоторые...
Но если бы было так просто.
Дело в том,что при открытии htm файла в Excel происходит следующее:
в htm файле есть,к примеру, такие значения 3.1--10.33--5.33
при открытии в Excel мы получаем соответственно 03.янв--окт.33--май.33
Поэтому открываем htm в Word-е,заменяем все (.)на (,) копируем таблицу и вставляем в Excel.

@vlth · 14.06.2010, 15:31

Так сразу что делать не пойму - задача незнакомая.
Может быть пришлешь какие-нибудь небольшие примерчики:
1. Исходный htm - файл.
2. Результат экспорта в Excel (можно фрагмент).

pVlTh@yandex.ru

@miomio · 14.06.2010, 16:17 **[ТС]**

Выслал.Целый фильм во флеше+исходники

@miomio · 14.06.2010, 16:17 **[ТС]**

Выслал.Целый фильм во флеше+исходники

@vlth · 14.06.2010, 19:04

Что-то я так ничего и не получил...

@brovey · 16.06.2010, 19:52

Краткий формат отображения даты менять пробывали? Или это не допустимо?
Пуск->Настройка->Языки и стандарты->Дата
Меняем точку на запятую, пробуем открыть htm в Excel

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16

	Нужно автоматизировать заполнение ячеек 13.06.2010, 14:25. Показов 5146. Ответов 35 Метки нет (Все метки) Прошу помощи в написании макроса. Имеется два столбца A,B В этих столбцах имеются данные [столбец А] [столбец B] 405 10 - - - - - - 405 20 - - - - - - - - - - - - 408 50 - - И т.д. В ручную делается утомительная операция - выделение значения в столбиках А и B (405 и 10 соответсвенно)протягивание до следующих значений (405 и 20) и заполнение CTRL+D (Заполнить вниз) Нельзя ли как-то автоматизировать этот каторжный труд(количество строк доходит иногда до 7000-8000 строк)? Буду очень признателен за помощь. 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 13:25
	2IgorT Не грусти: в макросе использована твоя логика. Спаибо за поправку )) 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	14.06.2010, 13:33
	2miomio надо выделить диапазон, где ты хочешь его использовать. А так он отработает на одной ячейке 2vith я уже весёлый :-) не подумай что на веселе 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 13:34 [ТС]
	vlth! Ур-а-а-а-а-а!Заработало!!!!! Вот только какая человеческая натура...Это я про себя... Еще пару минут меня якобы устраивала остановка макроса на 8000 строке... Я указал 8000 строку как максимально возможную,но в реальности есть и меньшие массивы.Значит прийдеться все лишнее убирать вручную или сделать макросы для разных 'длинн' (1000строк,2000строк и т д.)? Или быть может есть более изящнее решение? Дело еще в том,что по окончанию всех значений у меня есть запись,к примеру 'Конец всех значений' или 'Stop'. Нельзя ли останавливать макрос при 'попадании' его на это слово? 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 13:51 [ТС]
	IgorT! Да это просто праздник какой-то! И твой макрос тоже работает!Супер! Я выделяю диапазон и...О,чудо! Ребята!Я так благодарен Вам!Ну так...ну...просто 'я задыхаюсь от...' мгм...радости! Все!Буду прославлять и боготворить!Чесслово!Спасители!Ура! 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 14:02
	Для порядка в записях: k = .Range('A:B').Find(What:='Конец всех значений', LookIn:=xlValues).Row - 2 (Добавлена точка перед словом 'Range', т.е. указывается диапазон на активном листе). 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 14:03 [ТС]
	Кла---а-----а----сссссс! То что нужно! Все,теперь новый график работы: 1.работа - 5 минут 2.порносайты - все остальное! Шутка,конечно же. Могу ли я еще воспользоваться Вашими знаниями? 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 14:20
	Думаю - и нашими, а также знаниями и опытом всех остальных - без проблем )) 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 14:23
	Да, забыл спросить про самое интересное: а что это за работа такая, - 'творческая'? 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 14:25 [ТС]
	Спасибо еще раз! Тогда иду новую тему заявлять. 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 14:53 [ТС]
	Да работа совсем не творческая - это у меня такой подход к работе. Остальные предпочитают сто раз скопировать и сто раз вставить одни и те же значения а при слове 'макрос' ,'автоматически' вздрагивают как в 30годы,при Сталине. Работа заключается в проверке накладных.И вот с Вашей помощью некоторая часть этой работы стала намного легче.Но до полной автоматизации еще далеко. Есть основная проблема.Экспорт данных в Excel. Исходные данные приходят в формате htm. Да,да: 'Открывай в Excel файл данного формата и работай с ним!' скажут некоторые... Но если бы было так просто. Дело в том,что при открытии htm файла в Excel происходит следующее: в htm файле есть,к примеру, такие значения 3.1--10.33--5.33 при открытии в Excel мы получаем соответственно 03.янв--окт.33--май.33 Поэтому открываем htm в Word-е,заменяем все (.)на (,) копируем таблицу и вставляем в Excel. 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 15:31
	Так сразу что делать не пойму - задача незнакомая. Может быть пришлешь какие-нибудь небольшие примерчики: 1. Исходный htm - файл. 2. Результат экспорта в Excel (можно фрагмент). pVlTh@yandex.ru 0

@miomio 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 16
	14.06.2010, 16:17 [ТС]
	Выслал.Целый фильм во флеше+исходники 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.06.2010, 19:04
	Что-то я так ничего и не получил... 0

@brovey 0 / 0 / 0 Регистрация: 28.04.2009 Сообщений: 13
	16.06.2010, 19:52
	Краткий формат отображения даты менять пробывали? Или это не допустимо? Пуск->Настройка->Языки и стандарты->Дата Меняем точку на запятую, пробуем открыть htm в Excel 0