Pilih seluruh kolom dikurangi baris tajuk di makro Excel

8

Bagaimana cara saya mengakses rentang yang sesuai dengan seluruh kolom mulai dari baris 2 (ada baris header)?

Akhir pemilihan harus merupakan sel non-kosong terakhir di kolom.

microsoft-excel macros vba

— Dave
sumber

5

Lihat artikel Dukungan Microsoft Cara memilih sel / rentang dengan menggunakan prosedur Visual Basic di Excel , # 19 ( Cara Memilih Seluruh Rentang Sel Bersebelahan dalam Kolom ).

— Peter Mortensen
sumber

Itu memilih lebih dari satu juta baris di buku kerja yang saya gunakan meskipun semuanya di atas 300 atau lebih kosong.

— Dave

bagaimana dengan: Sub LastCellBeforeBlankInColumn () / Range ("A1"). End (xldown) .Pilih / End Sub

2

Coba ini:

Range(Range("A2"),Range("A2").End(xldown)).Select

atau ini:

Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select

— Michael Galos
sumber

2

Mengacu pada jawaban SO ini , satu-satunya metode aman adalah .find()metode.
Semua metode lain dapat memberikan hasil yang salah jika Anda sebelumnya menghapus beberapa sel.

Contoh untuk mendapatkan sel terakhir

Lastrow =  Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Lastcol =  Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

Dan jawaban spesifik untuk pertanyaan Anda (dengan asumsi data Anda ada di kolom 2, mulai dari baris 2)

Range([B2], [B:B].Find("*", [B1], , , xlByRows, xlPrevious)).select

masukkan deskripsi gambar di sini

— nixda
sumber

1

Anda bisa menggunakan pintasan keyboard Excel. Coba Ctrl+ Home.

Ini akan membawa Anda ke sel A1 (jika Anda belum menggunakan panel beku). Turun satu sel dan kemudian gunakan tombol Ctrl+ Shift+ Down arrowuntuk memilih hingga baris yang dimasukkan terakhir.

Jika Anda harus memilih nilai kolom, gunakan right arrowtombol sebagai ganti down arrowtombol.

— Peter Mortensen
sumber

0

Potongan kode ini rata-rata segalanya kecuali tajuk dengan tajuk di Sel "B1"

Dim GG as Long
GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))

— RWB
sumber