Runtime error 1004 saat menghapus banyak kolom dalam excel VBA

Mendapatkan kesalahan runtime 1004 saat menjalankan makro berikut ini yang memiliki kolom mulai dari A hingga BJ.

Sub sbVBS_To_Delete_Specific_Multiple_Columns()
Sheets("GRT Flight Data Log_raw").Range("A:B,H:I,K:L,P,AB:AH,AK:AN,AQ,AT,AZ:BJ").EntireColumn.Delete
End Sub

Saya telah menggunakan kode ini pada log data yang sama menghapus kolom yang berbeda untuk aplikasi yang berbeda dan berfungsi dengan baik. Ini adalah kode yang berfungsi:

Sub sbVBS_To_Delete_Specific_Multiple_Columns()

Sheets("GRT Flight Data Log").Range("A:B,H:L,P:Q,S:BJ").EntireColumn.Delete
End Sub

Saya telah kehabisan setiap kemungkinan yang saya temukan, tolong bantu.

microsoft-excel vba macros

— Christopher Rogers
sumber

Tidak yakin dengan masalah Anda. Tetapi apakah "P" suatu rentang? Mungkin Anda perlu melakukan "P: P"

— Yisroel Tech

Anda benar, rentang saya memiliki set kolom tunggal jadi saya mengubah semua nilai kolom tunggal untuk mencerminkan bahwa AQ sekarang AQ: AQ dan P sekarang P: P seperti yang Anda ucapkan terima kasih.

— Christopher Rogers

"runtime error 1004" adalah semua kesalahan yang dikatakan? Seharusnya mengatakan sesuatu yang lebih rinci.

— Yisroel Tech

Itu memang mengatakan lebih banyak tentang rentang tetapi Anda menyelesaikannya terlepas jadi terima kasih.

— Christopher Rogers

Oh, Anda mengedit komentar itu. Kupikir kau tidak tertolong. Saya akan menulis komentar saya sebagai jawaban sehingga bisa diterima.

— Yisroel Tech

Saya melihat bahwa dalam rentang yang Anda miliki Pyang bukan kisaran tetapi satu huruf.

Anda harus mengubahnya menjadi sesuatu seperti P:P

— Yisroel Tech
sumber