2017-01-10 2 views
1

Привет, как я могу найти последнюю строку в Excel и скопировать эту строку вниз? Мне нравится не копировать строку отверстий, а, например, столбец № 7 до # 15. Имя листа “Forrest”. Я только начал использовать VBA, и это довольно запутанно.Exce/VBA: l Скопируйте последнюю строку в конкретные столбцы?

+0

Добро пожаловать в Переполнение стека! Чтобы дать вам отличный ответ, это может помочь нам, если у вас есть взгляд на [спросить], если вы еще этого не сделали. Это может быть полезно, если вы можете предоставить [mcve]. – Mat

ответ

2

код, указанный ниже, должен выполнять Задачу, которую вы ищете. Маленький намек: в Excel вы можете записывать макросы, а затем проверять пространство VBA, как ваши действия преобразуются в код VBA, обычно это хорошая отправная точка для изучения VBA.

Dim lastRowI As Integer 
lastRowI = Sheets("Forrest").Cells(Rows.Count, 7).End(xlUp).Row 
Sheets("Forrest").Activate 
Sheets("Forrest").Range(Cells(lastRowI, 7), Cells(lastRowI, 15)).Select 
Selection.Copy 
Sheets("Forrest").Range(Cells(lastRowI + 1, 7), Cells(lastRowI + 1, 15)).Select 
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
SkipBlanks:=False, Transpose:=False 
+0

Я попробовал функцию макрозаписи, это очень полезно! Спасибо ! – FS2010

+0

добро пожаловать ;-) – EKSK

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