Скопировать выбранные столбцы

@eugenwww · Регистрация: 29.06.2022

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

Добрый день!
Подскажите как прописать в коде копирование столбцов выборочно.
Дело в том что таких столбцов около 100 шт.
Определенной логики нет к которому моно привязать цикл (имхо)

@Burk · 28.10.2022, 15:39

eugenwww, тогда возвращаемся малость назад. Каким же образом будем определять из множества (100) столбцов те, которые надо копировать? Я думал, что Шапка будет иметь некий (не белый) цвет. Оказалось, что нет. Тогда по какому признаку будем определять копируемые столбцы? Если номера этих столбцов всегда одни и те же, то можно просто занести в начале запуска макроса эти номера в массив и работать по этим номерам. Или, к примеру, размер шрифта в шапке этих столбцов другой, или шрифт Italic и прочее. Предложите какой-нибудь вариант.

@eugenwww · 28.10.2022, 16:05 **[ТС]**

Burk, точно они будут всегда одни и те же.
я с массивами плохо знаком, придется разобраться)
просто я думал может я что то упускаю и есть возможность через цыкл написать макрос

@Burk · 28.10.2022, 17:07

eugenwww, я сделал вам массив номеров столбцов для копирования по вашему файлу, измените его аналогично, если будете изменять эти номера. Результат по макросу поместил в лист 3, чтобы вы могли сравнить со своими. Запустите макрос proba. файл с макросом в формате xls, чтобы не создавать архив.

@Burk · 28.10.2022, 17:40

eugenwww, я сначала делал по цвету, а когда переделывал под массив, то кое-какие ненужные уже строки не выкинул. Посылаю исправленный макрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub proba()
Dim I As Integer, J As Integer, LastRow As Integer
Dim Ar As Variant, Ubn As Integer
Sheets(1).Activate
Ar = Array(9, 12, 15, 17)
Ubn = UBound(Ar)
I = 4
For J = 0 To Ubn
    LastRow = Cells(Rows.Count, Ar(J)).End(xlUp).Row
    Range(Cells(13, Ar(J)), Cells(LastRow, Ar(J))).Copy Sheets(3).Cells(8, I)
    I = I + 1
Next
End Sub

@eugenwww · 28.10.2022, 17:51 **[ТС]**

спасибо огромное!
Все работает.

Добавлено через 7 минут
Burk
спасибо огромное!
Все работает.

Добавлено через 2 минуты
Burk, я тут через циклы пытался
с кучей переменных ))
Range("y" & i & ":A1" & Cells(Rows.Count, z).End(xlUp).Row).Select
зашел в полный тупик своих знаний, массив конечно многое открывает

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр 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) активировать флаг. . .

@eugenwww -6 / 1 / 0 Регистрация: 29.06.2022 Сообщений: 15

	Скопировать выбранные столбцы 28.10.2022, 10:00. Показов 2059. Ответов 24 Метки нет (Все метки) Добрый день! Подскажите как прописать в коде копирование столбцов выборочно. Дело в том что таких столбцов около 100 шт. Определенной логики нет к которому моно привязать цикл (имхо) 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	28.10.2022, 15:39
	eugenwww, тогда возвращаемся малость назад. Каким же образом будем определять из множества (100) столбцов те, которые надо копировать? Я думал, что Шапка будет иметь некий (не белый) цвет. Оказалось, что нет. Тогда по какому признаку будем определять копируемые столбцы? Если номера этих столбцов всегда одни и те же, то можно просто занести в начале запуска макроса эти номера в массив и работать по этим номерам. Или, к примеру, размер шрифта в шапке этих столбцов другой, или шрифт Italic и прочее. Предложите какой-нибудь вариант. 0

@eugenwww -6 / 1 / 0 Регистрация: 29.06.2022 Сообщений: 15
	28.10.2022, 16:05 [ТС]
	Burk, точно они будут всегда одни и те же. я с массивами плохо знаком, придется разобраться) просто я думал может я что то упускаю и есть возможность через цыкл написать макрос 0

@eugenwww -6 / 1 / 0 Регистрация: 29.06.2022 Сообщений: 15
	28.10.2022, 17:51 [ТС]
	спасибо огромное! Все работает. Добавлено через 7 минут Burk спасибо огромное! Все работает. Добавлено через 2 минуты Burk, я тут через циклы пытался с кучей переменных )) Range("y" & i & ":A1" & Cells(Rows.Count, z).End(xlUp).Row).Select зашел в полный тупик своих знаний, массив конечно многое открывает 1

Опции темы

Скопировать выбранные столбцы

Решение