1

голосов
3

ответ
292

Просмотры

VBA Excel Copy Column to other worksheet with offset

Я нашел этот кусок кода, который делает 99% того, что мне нужно. Описание процедуры: В моей книге есть один SQL лист с именованными столбцами, на основе заголовка столбца, я должен перебрать все остальные листы (переменный от 10 до 50 листов) в книге, где заголовок столбца имеет одинаковое имя, все столбцы из источника SQL листа копируется в целевых листы. В целевых листах заголовок колонки состоит из 4-х строк, в источнике заголовок столбца имеет только один ряд. Проблема-1: Как скопировать столбец без заголовка и вставьте содержимое со смещением в 4 ряда. Проблема-2: Как я могу скопировать только реальный используемый диапазон, рабочая книга становится огромной. Код-Sample: Sub Test () Dim Sh2Cell Как Range Dim Sh3Cell Как Range Dim ShQuelleTitle Как Range Dim ShZielTitle Как Range '
Thomas Strickner