Saya mencoba menghapus kolom berdasarkan informasi yang tidak ada.

Saya ingin memeriksa semua baris 4 dan jika setiap sel tidak sama dengan kriteria berikut saya ingin menghapus kolom.

Kriteria
Sel kosong
ID
Jumlah
147
Daerah

Sepertinya saya tidak tahu di mana saya salah - sepertinya jika saya menjalankan kode saya seperti 10 kali akhirnya berhasil menyelesaikan tugas saya - tetapi itu harus bekerja dalam satu upaya

For Each cel_1 In Worksheets("Sheet1").Range("4:4")
    If cel_1.Value <> "" And cel_1.Value <> "ID" And cel_1.Value <> "Total" _
        And cel_1.Value <> "147" And cel_1.Value <> "Area" Then
        cel_1.EntireColumn.Delete  
    End If
Next
1
Newbie 20 November 2020, 15:35

1 menjawab

Jawaban Terbaik

Coba loop jenis lain

Sub DeleteColumns()
    For i = 1 To ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
        If ActiveSheet.Cells(4, i) <> "" And ActiveSheet.Cells(4, i) <> "ID" And ActiveSheet.Cells(4, i) <> "Total" _
        And ActiveSheet.Cells(4, i) <> "147" And ActiveSheet.Cells(4, i) <> "Area" Then
            ActiveSheet.Columns(i).Delete
            i = i - 1
        End If
    Next i


End Sub
0
Tomasz 20 November 2020, 12:57