Memformat kolom kosong berdasarkan jumlah baris dalam spreadsheet


1

Saya mencoba warna kolom kosong kode dalam lembar kerja berdasarkan jumlah baris yang saya miliki di kumpulan data saya. Saya memiliki makro yang ada yang mengurutkan dan memformat data saya, tetapi saya ingin menambahkan kode untuk melakukan bagian ini. Jumlah baris dapat bervariasi dari 50-50.000 dan saya tidak ingin mewarnai seluruh kolom hingga ke bagian bawah lembaran. Apakah ada cara untuk melakukan ini dengan kode vba? Saya sudah mencoba kode ini tetapi warna seluruh kolom, bukan hanya 100 baris yang saya miliki.

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue

Jawaban:


1

Anda sudah dekat

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub

Anda menggunakan xldown, yang mengambil sel terakhir dan kemudian turun ke akhir lembar. Coba gunakan xlup. Juga - cobalah untuk keluar dari kebiasaan menggunakan selection- biasanya tidak pernah diperlukan.

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.