删除指定列后除列名外的空列

ddz79101

老师！有张表，希望删除指定列后，有列名但列中为空的列，表有代码，但簿成功，请老师指点。谢谢

清风竹-

Sub c()
arr = Range("a1").CurrentRegion
    For m = UBound(arr, 2) To 5 Step -1
        Set rng = Range(Cells(2, m), Cells(2, m).Offset(UBound(arr) - 5))
        If Trim(rng.Text) = "" Then
            Columns(rng.Column).Delete Shift:=xlToLeft
        End If
    Next
End Sub

ddz79101

有老师帮忙吗

ddz79101

ddz79101 发表于 2024-3-5 09:44
有老师帮忙吗

有老师出手帮忙看看吗

313667354

Sub 删除背景色列()     Dim titleRow As Long     titleRow = 1          Dim lastColumn As Long     lastColumn = Cells(titleRow, Columns.Count).End(xlToLeft).Column          Dim i As Long     For i = 1 To lastColumn         If Cells(titleRow, i).Interior.ColorIndex <> xlNone Then             Columns(i).Delete Shift:=xlToLeft             i = i - 1             lastColumn = lastColumn - 1         End If     Next i End Sub

313667354

请参考
Sub 删除背景色列()
    Dim titleRow As Long
    titleRow = 1
   
    Dim lastColumn As Long
    lastColumn = Cells(titleRow, Columns.Count).End(xlToLeft).Column
   
    Dim i As Long
    For i = 1 To lastColumn
        If Cells(titleRow, i).Interior.ColorIndex <> xlNone Then
            Columns(i).Delete Shift:=xlToLeft
            i = i - 1
            lastColumn = lastColumn - 1
        End If
    Next i
End Sub

tanglf188

请参考

ddz79101

清风竹- 发表于 2024-3-5 09:20
Sub c()
arr = Range("a1").CurrentRegion
    For m = UBound(arr, 2) To 5 Step -1

谢谢老师！画龙点睛

ddz79101

313667354 发表于 2024-3-5 10:20
请参考
Sub 删除背景色列()
    Dim titleRow As Long

谢谢老师！想的圆满

ddz79101

tanglf188 发表于 2024-3-5 10:37
请参考

谢谢老师！成功运行