Ten samouczek nauczy Cię, jak kopiować (lub wycinać) całe wiersze lub kolumny za pomocą VBA. Kopiowanie i wklejanie zakresów komórek opisujemy w innym artykule.
Najpierw pokażemy, jak wkleić lub wstawić skopiowane wiersze/kolumny i omówić różnice. Następnie pokażemy Ci wszystkie różne sposoby odwoływania się do wierszy i kolumn podczas kopiowania lub wycinania.
Wiersze i kolumny - wklej a wstaw
Podczas wklejania wierszy i kolumn masz dwie możliwości: możesz wkleić istniejący wiersz (lub kolumnę) lub wstawić nowy wiersz (lub kolumnę).
Spójrzmy na różnicę…
Kopiuj i wklej nad istniejącym wierszem/kolumną
Spowoduje to skopiowanie wiersza 1 i wklejenie go do istniejącego wiersza 5:
| 1 | Zakres("1:1").Zakres kopiowania("5:5") |
Spowoduje to skopiowanie kolumny C i wklejenie jej do kolumny E:
| 1 | Zakres("C:C").Zakres kopiowania("E:E") |
Kopiuj i wstaw wiersz/kolumnę
Zamiast tego możesz wstawić skopiowany wiersz lub kolumnę i przesunąć istniejące wiersze lub kolumny, aby zrobić miejsce.
Spowoduje to skopiowanie wiersza 1 i wstawienie go do wiersza 5, przesuwając istniejące wiersze w dół:
| 12 | Zakres ("1:1").KopiujZakres("5:5").Wstaw |
Spowoduje to skopiowanie kolumny C i wstawienie jej do kolumny E, przesuwając istniejące kolumny w prawo:
| 12 | Zakres("C:C").KopiujZakres("E:E").Wstaw |
Kopiuj cały wiersz
Poniżej pokażemy kilka sposobów na skopiowanie wiersza 1 i wklejenie do wiersza 5.
| 1 | Zakres("1:1").Zakres kopiowania("5:5") |
| 1 | Zakres("A1").EntireRow.Copy Range("A5") |
| 1 | Wiersze(1).Kopiuj wiersze(5) |
Wytnij i wklej wiersze
Po prostu użyj opcji Wytnij zamiast Kopiuj, aby wyciąć i wkleić wiersze:
| 1 | Rzędy(1).Wytnij Rzędy(5) |
Kopiuj wiele wierszy
Oto przykłady kopiowania wielu wierszy naraz:
| 1 | Zakres("5:7").Zakres kopiowania("10:13") |
| 1 | Zakres("A5:A7").EntireRow.Copy Range("A10:A13") |
| 1 | Wiersze (5:7). Kopiuj wiersze (10:13) |
Kopiuj całą kolumnę
Możesz kopiować całe kolumny podobnie jak kopiowanie całych wierszy:
| 1 | Zakres("C:C").Zakres kopiowania("E:E") |
| 1 | Zakres("C1").EntireColumn.Copy Range("C1").EntireColumn |
| 1 | Kolumny(3).Zakres kopiowania(5) |
Wytnij i wklej kolumny
Po prostu użyj opcji Wytnij zamiast Kopiuj, aby wyciąć i wkleić kolumny:
| 1 | Zakres("C:C").Zakres cięcia("E:E") |
Kopiuj wiele kolumn
Oto przykłady kopiowania wielu kolumn jednocześnie:
| 1 | Zakres("C:E").Zakres kopiowania("G:I") |
| 1 | Zakres("C1:E1").EntireColumn.Copy Range("G1:I1") |
| 1 | Kolumny(3:5).Kopiuj kolumny(7:9) |
Kopiuj wiersze lub kolumny do innego arkusza
Aby skopiować do innego arkusza, po prostu użyj obiektu arkusza:
| 1 | Arkusze("arkusz1").Range("C:E").Copy Sheets("arkusz2").Range("G:I") |
Wytnij wiersze lub kolumny do innego arkusza
Możesz użyć tej samej techniki do wycinania i wklejania wierszy lub kolumn do innego arkusza.
| 1 | Arkusze("arkusz1").Range("C:E").Cut Sheets("arkusz2").Range("G:I") |
