Копировать строки из разных листов - PullRequest
Новая
       38

Копировать строки из разных листов

1 голос
/ 13 сентября 2011

Как я могу скопировать несколько строк на листе и вставить их дальше вниз, включая любое форматирование, например, цвета фона и все значения, уже содержащиеся в строках?

Я пытался использовать этот фрагмент 

Application.Worksheets("IPL").Select
Rows("6:9").Select
Application.CutCopyMode = False
Selection.Copy
Application.Worksheets("CMM").Select
Rows("13:13").Select
Selection.Insert Shift:=xlDown

Но когда я пытаюсь выполнить это, я получаю ошибку приложения. Я попробовал некоторые другие примеры, но они, кажется, не делают то же самое, что я хочу ...

Любая помощь?

1 Ответ

3 голосов
/ 13 сентября 2011

Я упростил ваш код (код диктофона всегда полон ненужных «селекций»), и он отлично работает даже на разных листах! 

Sheet1.Rows("5:6").Cut
Sheet2.Rows("18:19").Insert Shift:=xlDown
...