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” di 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.
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 kita menghapus seluruh baris, bahkan baris Tabel 2 juga terhapus, tetapi kita tidak ingin ini terjadi; sebagai gantinya, kita hanya perlu menghapus baris berwarna dan di bawah sel harus menaikkan 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 itu, 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, sediakan sel RANGE untuk disertakan dalam operasi ini. Dalam tindakan ini, sel pertama yang akan dihapus dan dipindahkan ke atas 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 tersebut sebagai "XLUP".
Kode:
Sub XLUP_Example () Range ("A5: B5") Hapus shift: = xlUp End Sub
Sekarang Anda dapat menjalankan kode ini secara manual atau melalui shortcut excel key F5 untuk melihat hasilnya.

Seperti yang Anda lihat di 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.
In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.
Code:
Sub XLUP_Example1() End Sub

To store the last used row number. define the variable as the VBA LONG data type.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub
Now for this variable, we will assign the last used row number.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub

Now use the RANGE object and open this object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub

Now mention the active cell (A20) for RANGE object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub

Now open END property for supplied range cell.
Code:
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 the data is very small, we started the room 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 an 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.

Alih-alih objek RANGE, saya telah menggunakan properti CELLS. Izinkan saya menjelaskan hal ini secara rinci kepada Anda.
ROW.COUNT ini akan menghitung berapa banyak baris yang ada di kolom 1. Apa yang akan dilakukan adalah ini akan mempertimbangkan sel terakhir di lembar kerja, bukan alamat sel acak. Dalam kasus di atas, kami telah menggunakan A14 sebagai alamat sel acak.
Hal yang Perlu Diingat tentang VBA XLUP
- XLUP adalah kata yang digunakan dalam kode VBA untuk mereplikasi aksi tombol "Panah Atas" di excel.
- VBA XLUP digunakan untuk berpindah dari sel aktif ke sel di atas atau sel yang terakhir digunakan.
- XLUP umumnya digunakan bersama dengan properti END di VBA.