VBA XLUP - Bagaimana Menggunakan VBA XLUP di Excel? (dengan Contoh)

Isi kandungan

Excel VBA XLUP

Satu perkara yang perlu anda perhatikan semasa menulis kod VBA adalah apa yang anda lakukan dengan lembaran kerja biasa, dan anda juga dapat meniru perkara yang sama di VBA. Salah satu kata kunci dalam pengekodan VBA adalah "XLUP" dalam artikel ini. Kami akan menunjukkan kepada anda apa kata kunci ini dalam pengekodan VBA dan bagaimana menggunakannya dalam pengekodan.

Bagaimana Menggunakan VBA XLUP dalam Pengekodan?

Berikut adalah contoh excel VBA XLUP.

Contoh # 1 - Pindahkan Sel ke Kedudukan Sel yang Dihapus

Sebagai contoh, lihat senario data di bawah, di mana anda perlu menghapus data sel berwarna dan lebih banyak lagi data baris di bawah ke data di atas.

Salah satu cara untuk menghapusnya dalam lembaran kerja adalah memilih sel di mana kita hanya boleh menghapus keseluruhan baris itu sendiri. Tetapi di sini, situasi agak sukar kerana saya mempunyai sel berwarna dalam Jadual 1 ketika kita menghapus keseluruhan baris, malah baris Jadual 2 juga dihapus, tetapi kita tidak mahu ini berlaku; sebaliknya, kita hanya perlu memadamkan baris berwarna dan sel di bawah harus menaikkan kedudukan sel yang dihapus.

Pertama, pilih sel berwarna dan tekan Ctrl + Minus Symbol (-) untuk membuka pilihan "Delete".

Kekunci Pintasan untuk Membuka Pilihan "Padam"

Di tetingkap pilihan "hapus", kami mempunyai empat pilihan. Kita boleh memilih tindakan mengikut kehendak kita. Oleh kerana kita perlu menggerakkan sel kita ke positon sel yang dihapus, pilih "Shift Cell Up."

Kita akan mempunyai baris Jadual 2 yang tidak berubah.

Tindakan di VBA ini memerlukan penggunaan harta "XLUP" untuk melakukan sekumpulan tindakan yang serupa di VBA. Sekarang datang ke tetingkap editor VBA dan mulakan nama makro anda.

Kod:

Sub XLUP_Contoh () Sub Akhir

Pertama, sediakan RANGE sel untuk dimasukkan dalam operasi ini. Dalam tindakan ini, sel pertama yang akan dihapus dan bergerak ke atas adalah sel "A5: B5".

Kod:

Sub XLUP_Contoh () Julat ("A5: B5") Sub Akhir

Untuk julat sel ini, pilih kaedah "Padam".

Kod:

Sub XLUP_Contoh () Julat ("A5: B5"). Padam Sub Akhir

Seperti yang anda lihat untuk kaedah "Hapus", kami mempunyai satu argumen pilihan sebagai (Shift). Untuk argumen ini, kita perlu memasukkan argumen sebagai "XLUP."

Kod:

Sub XLUP_Contoh () Julat ("A5: B5"). Hapus shift: = xlUntuk Sub Akhir


Sekarang anda boleh menjalankan kod ini secara manual atau melalui kunci pintas excel F5 untuk melihat hasilnya.

Seperti yang anda lihat dalam Jadual 1, kita mempunyai baris nombor 6 yang bergerak ke baris ke- 5 , dan di sisi lain Jadual, 2 baris (berwarna) tidak berubah, jadi dengan menggunakan pilihan "VBA XLUP", kita dapat melakukan operasi ini .

Contoh # 2 - Cari Baris Terakhir Digunakan dengan menggunakan XLUP

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

Sekarang, jika anda ingin memilih sel yang terakhir digunakan (A14), bagaimana anda melakukannya dengan menggunakan kekunci pintasan ???

Kami akan menggunakan kekunci Ctrl + Panah Atas untuk berpindah ke sel yang terakhir digunakan dari kedudukan semasa.

Kekunci Pintasan untuk Pindah ke Sel yang terakhir digunakan

Oleh itu, dari sel semasa, anak panah Ctrl + Atas memilih sel yang terakhir digunakan. Begitu juga, dalam pengekodan VBA, kami menggunakan END (XLUP) untuk melakukan perkara yang sama.

Sekarang kembali ke tetingkap pengekodan 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.

Daripada objek RANGE, saya telah menggunakan harta CELLS. Izinkan saya menerangkan perkara ini secara terperinci kepada anda.

ROW.COUNT ini akan mengira berapa baris yang terdapat di lajur 1. Apa yang akan dilakukan ialah mengambil kira sel terakhir dalam lembaran kerja dan bukannya alamat sel rawak. Dalam kes di atas, kami telah menggunakan A14 sebagai alamat sel rawak.

Perkara yang Perlu Diingat mengenai VBA XLUP

  • XLUP adalah kata yang digunakan dalam kod VBA untuk meniru tindakan kunci "Panah Atas" di excel.
  • VBA XLUP digunakan untuk bergerak dari sel aktif ke sel di atas atau sel yang terakhir digunakan.
  • XLUP umumnya digunakan bersama dengan harta END di VBA.

Artikel menarik...