VBA XLUP

Excel VBA XLUP

Satu hal yang perlu Anda ingat saat menulis kode VBA adalah apa yang Anda lakukan dengan lembar kerja biasa dan Anda juga dapat mereplikasi hal yang sama di VBA. Salah satu kata kunci dalam pengkodean VBA adalah “XLUP”, pada artikel ini kami akan menunjukkan kepada Anda apa kata kunci ini dalam pengkodean VBA dan bagaimana menggunakannya dalam pengkodean.

Bagaimana Cara Menggunakan VBA XLUP di Coding?

Berikut adalah contoh dari excel VBA XLUP.

Anda dapat mengunduh Template Excel VBA XLUP ini di sini - Template Excel VBA XLUP

Contoh # 1 - Pindahkan Sel ke Posisi Sel yang Dihapus

Misalnya, lihat skenario data di bawah ini, di mana Anda perlu menghapus data sel berwarna tersebut dan lebih banyak lagi data baris di bawah ini ke data di atas.

Salah satu cara untuk menghapus ini di lembar kerja adalah dengan memilih sel-sel di mana kita cukup menghapus seluruh baris itu sendiri. Tetapi di sini situasinya sedikit rumit karena saya memiliki sel berwarna pada Tabel 1 ketika kami menghapus seluruh baris bahkan baris Tabel 2 juga terhapus, tetapi kami tidak ingin ini terjadi, sebaliknya kami hanya perlu menghapus baris berwarna dan sel di bawahnya harus bergerak naikkan posisi sel yang dihapus.

Pertama, pilih sel berwarna dan tekan Ctrl + Simbol Minus (-) untuk membuka opsi "Hapus".

Tombol Pintas untuk Membuka Opsi "Hapus"

Di jendela opsi "hapus", kami memiliki empat opsi, kami dapat memilih tindakan sesuai kebutuhan kami. Karena kita perlu memindahkan sel kita ke atas untuk posisi sel yang dihapus tersebut, pilih "Shift Cell Up".

Kami akan memiliki baris Tabel 2 yang tidak berubah.

Tindakan di VBA ini memerlukan penggunaan properti "XLUP" untuk melakukan serangkaian tindakan serupa di VBA. Sekarang masuk ke jendela editor VBA dan mulai nama makro Anda.

Kode:

 Sub XLUP_Example () End Sub 

Pertama-tama berikan sel RANGE untuk disertakan dalam operasi ini. Dalam tindakan ini, sel pertama yang akan dihapus dan dinaikkan adalah sel “A5: B5”.

Kode:

 Sub XLUP_Example () Range ("A5: B5") End Sub 

Untuk rentang sel ini pilih metode "Hapus".

Kode:

 Sub XLUP_Example () Range ("A5: B5"). Hapus End Sub 

Seperti yang Anda lihat untuk metode "Hapus", kami memiliki satu argumen opsional sebagai [Shift], untuk argumen ini kita perlu memasukkan argumen sebagai "XLUP".

Kode:

 Sub XLUP_Example () Range ("A5: B5") Hapus shift: = xlUp End Sub 

Sekarang Anda bisa menjalankan kode ini secara manual atau melalui shortcut excel key F5, untuk melihat hasilnya.

Seperti yang Anda lihat pada Tabel 1, kami memiliki baris nomor 6 yang dipindahkan ke baris ke-5 dan di sisi lain Tabel, 2 baris (berwarna) tidak berubah, jadi dengan menggunakan opsi “VBA XLUP” kita dapat melakukan operasi ini.

Contoh # 2 - Temukan Baris Terakhir Digunakan dengan menggunakan XLUP

Bayangkan situasi di mana Anda berada di sel A20 (lihat gambar di bawah) dan sel yang terakhir digunakan adalah A14.

Sekarang jika Anda ingin memilih sel yang terakhir digunakan (A14). bagaimana Anda melakukannya dengan menggunakan tombol pintas ???

Kami akan menggunakan Ctrl + tombol Panah Atas untuk pindah ke sel yang terakhir digunakan dari posisi saat ini.

Tombol Pintasan untuk Pindah ke Sel yang Terakhir Digunakan 

Jadi, dari sel saat ini, Ctrl + Panah atas memilih sel yang terakhir digunakan. Demikian pula, dalam pengkodean VBA kami menggunakan END (XLUP) untuk melakukan hal yang sama.

Sekarang kembali ke jendela pengkodean VBA.

Di jendela ini, kami akan melakukan tugas untuk menemukan baris yang terakhir digunakan di lembar kerja. Buat subprocedure baru di jendela VBA.

Kode:

 Sub XLUP_Example1 () End Sub 

Untuk menyimpan nomor baris yang terakhir digunakan. tentukan variabel sebagai tipe data VBA LONG.

Kode:

 Sub XLUP_Example1 () Redupkan Last_Row_Number Sebagai Long End Sub 

Sekarang untuk variabel ini, kami akan menetapkan nomor baris yang terakhir digunakan.

Kode:

 Sub XLUP_Example1 () Redupkan Last_Row_Number Sebagai Long Last_Row_Number = End Sub 

Sekarang gunakan objek RANGE dan buka objek ini.

Kode:

 Sub XLUP_Example1 () Redupkan Last_Row_Number As Long Last_Row_Number = Range (End Sub 

Sekarang sebutkan sel aktif (A20) untuk objek RANGE .

Kode:

 Sub XLUP_Contoh1 () Redupkan Nomor_ Baris Terakhir Sebagai Jarak Jauh ("A14"). Pilih Nomor_ Baris Terakhir = Rentang ("A20") End Sub 

Sekarang buka properti END untuk sel rentang yang disediakan.

Kode:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub 

As you can see above, we have to arrow key options like “xlDown”, “xlToLeft”, “xlToRight”, “xlUp”. Since we are moving up from the A14 cell choose the “VBA XLUP” option.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub 

After moving up from A14 cell we need to mention what we need to do since we need the last used row number I will use ROW property.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub 

Now for the message box assign the value of variable “Last_Row_Number”.

Code:

 Sub XLUP_Example1()  Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub 

Now you can run this code manually or through shortcut key F5, to see the result.

So message box showing the last used row number as 14, so our last data used row number is A14 cell.

In this case, since data is very small we started from A20 cell but when the data is large we cannot say which cell to take into consideration first, in such cases we need to employ a different technique.

We need to use CELLS property, below is the example of the same.

Code:

 Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub 

Now you can run this code manually or through shortcut key F5, to see the result.

Instead of a RANGE object, I have used CELLS property. Let me explain this in detail to you.

ROW.COUNT this will count how many rows are there in column 1. What this will do is it will take into consideration of the last cell in the worksheet instead of random cell address, in the above case we have used A14 as the random cell address.

Things to Remember about VBA XLUP

  • XLUP is the word used in VBA code to replicate the action of the “Up Arrow” key in excel.
  • VBA XLUP is used to move from active cells to the above cell or last used cell.
  • XLUP is generally used along with END property in VBA.