Осуществить протягивание значений в одном столбце до строки последней заполненной ячейки в другом столбце

@GIKS · Регистрация: 13.05.2014

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

Доброго времени суток!

Нужна помощь...
Есть такая не тривиальная задача которую я даже не представляю как решить..
есть два столбца А и В.. в столбец А копируются значения из другого экселевского документа начиная с первой пустой ячейки (это реализованно и всё ок!) в столбце В в ячеках В2 и В3 находиться запись (допустим "Hello World!")... вопрос: как написать код в VBA чтоб эта запись (допустим "Hello World!") протягивалась по столбцу В до последней заполненной ячейки по столбцу А?
поиск по сайту и вообще по инету результатов не дал...

Заранее спасибо!

@Vlad999 · 21.05.2015, 17:16

а если добавить пересчет

Visual Basic
1
.Calculate

@Казанский · 21.05.2015, 17:17

mrf, Вы предлагаете кому-то создать книгу с листами ААА, Returned, US, заполнить их и раскрасить, чтобы можно было попробовать запустить этот код?

@mrf · 21.05.2015, 17:44

Влад, calculate не помогает никак.
Казанский, я, к сожалению, не могу скинуть файл - там ком. инф-я.
Да и дело в том, что и функция, вставляемая в ячейку рабочая, и функция подсчета цветов тоже...
И протягивание в ручную..
Именно проблема с проягиванием автоматически. От чего может зависеть ошибка?

@Казанский · 21.05.2015, 20:47

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

там ком. инф-я

Что, цвета ячеек - ком. инф-я?!

Тут ведь нужны цвета и диапазон, заполненный неважно чем.
Без примера, на котором воспроизводится ошибка, будем долго гадать. Например, добавьте в функцию

Visual Basic
1
Application.Volatile

А 9-ю строку более грамотно написать так, чтобы функция возвращала собственно значение ошибки, а не текст:

Visual Basic
1
CountColor = CVErr(xlErrNA)

@mrf · 21.05.2015, 22:34

Казанский, я же ещё не умею как Вы щелчком пальца удалять все остальные листы или стирать всю инфу сразу в 1 действие..

Вот сделал пример файла. Стал его сохранять у меня все #ЗНАЧ исправились как надо на 1 или 0. Но потом открыл, запустил макрос и опять все ЗНАЧ. Больше так не получилось. "Волатиле = тру" в ф-цию добавлял- не изменяет результат - также ЗНАЧ.

@mrf · 21.05.2015, 23:56

все перепробовал. получается только таким образом - через копи-паст, причем самой верхней оставляет формулу и вычисляет!!! ее, а в остальных вставляет уже значения.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub hhjsdfsdf()
Application.Calculation = xlCalculationAutomatic
Sheets("aaa").Activate
Range("k2").Activate
 ActiveCell.FormulaR1C1 = _
        "=IF((CountColor(RC[-3],returned!R1C1)+CountColor(RC[-3],us!R1C1))<1,(0+1),(1-1))"
    Range("k2").Select
        With Sheets("aaa")
        n = .Range("k2").CurrentRegion.Rows.Count
      .Range("k2").AutoFill Destination:=.Range("k2:k" & n), Type:=xlFillDefault
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    End With
Range("k1").Select
    Application.Calculation = xlCalculationManual
End Sub

Можно как-нибудь сократить действия, т.к. на 10000 строчек выполняется довольно долго?

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@GIKS 3 / 2 / 1 Регистрация: 13.05.2014 Сообщений: 156

	Осуществить протягивание значений в одном столбце до строки последней заполненной ячейки в другом столбце 06.06.2014, 17:10. Показов 12296. Ответов 25 Метки нет (Все метки) Доброго времени суток! Нужна помощь... Есть такая не тривиальная задача которую я даже не представляю как решить.. есть два столбца А и В.. в столбец А копируются значения из другого экселевского документа начиная с первой пустой ячейки (это реализованно и всё ок!) в столбце В в ячеках В2 и В3 находиться запись (допустим "Hello World!")... вопрос: как написать код в VBA чтоб эта запись (допустим "Hello World!") протягивалась по столбцу В до последней заполненной ячейки по столбцу А? поиск по сайту и вообще по инету результатов не дал... Заранее спасибо! 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	21.05.2015, 17:17
	mrf, Вы предлагаете кому-то создать книгу с листами ААА, Returned, US, заполнить их и раскрасить, чтобы можно было попробовать запустить этот код? 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	21.05.2015, 17:44
	Влад, calculate не помогает никак. Казанский, я, к сожалению, не могу скинуть файл - там ком. инф-я. Да и дело в том, что и функция, вставляемая в ячейку рабочая, и функция подсчета цветов тоже... И протягивание в ручную.. Именно проблема с проягиванием автоматически. От чего может зависеть ошибка? 0