2015-07-21 5 views
-3

Я ищу копию динамически изменяющегося диапазона значений из столбца E, начиная со строки 6, и вставляя его в другой рабочий лист (начиная со столбца G row 15). Цифры могут быть вставлены как значения.Скопируйте/вставьте 1 столбец, динамический диапазон, в отдельный рабочий лист

По сути, я хотел бы, чтобы функция копирования останавливалась, когда строка становится пустой.

Довольно много новичков с VBA, но я немного побеседовал с ним.

Спасибо!

+4

Хорошо, что возится? 'Код VBA? ', Можем ли мы увидеть, что вы пробовали до сих пор, и где ваша попытка потерпит неудачу? – 0m3r

+0

Извините за то, что не опубликовал то, что у меня было, я никогда не использовал этот сайт, и я просто врывался в основной макрос, чтобы помочь моей компании. С этого момента я опубликую то, что я пытался. @Omar – jdahl32

ответ

0

Добро пожаловать в StackOverflow :)

Range("E6", Range("E" & ActiveSheet.Rows.Count).End(xlUp)).Copy 
Range("G" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial 

кажется запутанным, но это то, что это означает:

Диапазон Е6 до нижней строки Ctrl + стрелка вверх

Copy

Нижняя часть строки G ctrl + стрелка вверх, затем вниз одна к следующей заготовке

Вставить

В будущем, если вам нужна помощь, убедитесь, что вы показываете достаточно подробностей, чтобы доказать, что у вас есть желание, и вы просто не хотите, чтобы это было написано для вас, вот что говорится выше.

Удача

+0

Спасибо за отзыв! Это то, что я выяснил до ответа: LastRow = Листы («Обозначение данных продукта»). Диапазон («E» и Rows.Count) .End (xlUp) .Row LastCol = Range (" A1 "). Конец (xlToRight) .Колонна Листы (« Pid Data Pivot »). Диапазон (« E6: E »и LastRow). Копия Листы (1) .Range (« G15 »). ВставитьСпециальную пасту: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False @AndrewT – jdahl32

+0

@ jdahl32 нет проблем, так это решило вашу проблему? если да, то установите флажок в противном случае, дайте мне знать, могу ли я помочь дальше. – AndrewT

Смежные вопросы