[已解决]大虾们，代码删除列的问题难倒我了，再次请教一下：

白云无尽9987

删除列的问题 修改了一个错误.rar (17.72 KB, 下载次数: 5)

2015-6-11 16:02 上传

点击文件名下载附件

不好意思，q1已经改为p3！

最佳答案

月排行榜 / 总排行榜

zjdh

2015-6-11 16:14

Sub fs()
    ........
    wb.Sheets(1).Range("C1:D4") = sh.Range("C2:D5").Value
   
    For I = 4 To 1 Step -1
        If Left(Cells(1, I), 2) = "科目" Then Columns(I).Delete
    Next   
    wb.Sheets(1).UsedRange.RowHeight = 18
    ........
End Sub

跳转到最佳答案楼层

zjdh

Sub fs()
    ........
    wb.Sheets(1).Range("C1:D4") = sh.Range("C2:D5").Value
   
    For I = 4 To 1 Step -1
        If Left(Cells(1, I), 2) = "科目" Then Columns(I).Delete
    Next   
    wb.Sheets(1).UsedRange.RowHeight = 18
    ........
End Sub