Kiedy piszemy kodowanie VBA, aby uchronić się przed powtarzalną pracą, selekcja danych odgrywa bardzo ważną rolę. W tym artykule dowiesz się, jak wybierać dane według wierszy, kolumn i całych dokumentów za pomocą kodowania VBA w programie Microsoft Excel.
Nauczysz się:
- Jak wybrać całą kolumnę?
- Jak zaznaczyć cały wiersz?
- Jak wybrać całe dane?
Jak wybrać całą kolumnę przez VBA?
Mamy dane w zakresie A1:C19, w którym kolumna A zawiera Nazwisko, kolumna B Płeć, a kolumna C zawiera Wiek.
Aby wybrać całą kolumnę A w tych danych, wykonaj poniższe kroki i kod:-
- Otwórz stronę VBA naciśnij klawisz Alt + F11
- Włóż moduł
- Napisz poniższy kod:
Sub Columnselect() Range("A1").Entirecolumn.Select End Sub
- Naciśnij klawisz F5, aby uruchomić makro w programie Excel
- Kolumna A zostanie wybrana
Jeśli chcesz, aby dane zostały wybrane do ostatniej aktywnej komórki w kolumnie, wykonaj poniższe czynności i kod: -
- Napisz poniższy kod:-
Sub Columnselect() lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row Worksheets("Sheet1").Range("A1:A" & lastrow).Select End Sub
Kod Wyjaśnienie:- Najpierw określimy jaka będzie ostatnia aktywna komórka w danych, a następnie ostatni wiersz użyjemy do zdefiniowania zakresu kodowania.
- Naciśnij klawisz F5, aby uruchomić makro w programie Excel
- Kolumna A1: A19 zostanie wybrana
W ten sposób za pomocą VBA możesz wybrać kod, aby wybrać kolumnę do ostatniej aktywnej komórki. Gdy nie wiemy, jaka jest ostatnia aktywna komórka, możemy użyć tego kodu podczas pisania kodu VBA do zaznaczenia w programie Microsoft Excel.
Jak wybrać cały wiersz przez VBA?
Mamy dane z zakresu A1:C19, w którym kolumna A zawiera Nazwisko, kolumna B Płeć, a kolumna C zawiera Wiek.
Aby wybrać cały wiersz w tych danych, wykonaj poniższe kroki i kod:-
- Otwórz stronę VBA naciśnij klawisz Alt + F11
- Włóż moduł
- Napisz poniższy kod:-
Sub rowselect() Zakres("A2").EntireRow.Select End Sub
- Naciśnij klawisz F5, aby uruchomić makro w programie Excel
- Kolumna A zostanie wybrana
Jeśli chcesz, aby dane były wybierane do ostatniej aktywnej komórki w wierszu, wykonaj poniższe czynności i kod: –
- Napisz poniższy kod:-
Sub rowselect() Dim lastcolumn As Long lastcolumn = Worksheets("Sheet1").Cells(1, Columns.count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(1, lastcolumn) )). Wybierz opcję Zakończ sub
Kod Wyjaśnienie: W tym kodzie najpierw zdefiniowaliśmy ostatnią kolumnę, następnie użyjemy jej do zdefiniowania zakresu.
- Naciśnij klawisz F5, aby uruchomić makro w programie Excel
- Pierwszy wiersz zostanie wybrany do ostatniej aktywnej komórki w wierszu
W ten sposób możemy zaznaczyć cały wiersz lub wybrać wiersz do ostatniej aktywnej komórki w programie Microsoft Excel przez VBA.
Jak wybrać całe dane przez VBA?
Weźmy przykład i zrozum:-
Mamy dane z zakresu A1:C19, w którym kolumna A zawiera Nazwisko, kolumna B Płeć, a kolumna C zawiera Wiek.
Aby wybrać dane od pierwszej komórki do ostatniej aktywnej komórki, wykonaj poniższe kroki i kod:-
- Otwórz stronę VBA naciśnij klawisz Alt + F11
- Włóż moduł
- Napisz poniższy kod:
Sub Selectionofflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Arkusz1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Arkusz1").Cells(1, Columns) .count).End(xlToLeft).Column Worksheets("Arkusz1").Range("A1", Cells(lastrow, lastcolumn)).Wybierz End Sub
Kod Wyjaśnienie: Najpierw zdefiniowaliśmy nazwę podmiotu kodu, następnie zdefiniowaliśmy wszystkie zmienne. Następnie określiliśmy, jaki byłby nasz ostatni wiersz i ostatnia kolumna.
- Naciśnij klawisz F5, aby uruchomić makro w programie Excel
- W arkuszu zostaną wybrane wszystkie dane
Teraz, jeśli chcesz skopiować te same dane i wkleić je, użyj poniższego kodu: –
Sub Selectionofflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Arkusz1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Arkusz1").Cells(1, Columns) .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn)).Copy Sheets("Sheet2").Range("A1") End Sub
Uruchom kod, wszystkie dane zostaną skopiowane i wklejone w arkuszu2.
W ten sposób możemy napisać makro do wybierania danych od pierwszej komórki do ostatniej aktywnej komórki, a następnie wkleić je w innym arkuszu w programie Microsoft Excel.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail.