www.hczm.net > ExCEl vBA 删除列的问题

ExCEl vBA 删除列的问题

一、让不同类型数据用不同颜色显示 在工资表中,如果想让大于等于2000元的工资总额以“红色”显示,大于等于1500元的工资总额以“蓝色”显示,低于1000元的工资总额以“棕色”显示,其它以“黑色”显示,我们可以这样设置。 1.打开“工资表”工作簿,选中“...

Sub test() Dim i As Integer, MyRange As Range Set MyRange = Columns(2) For i = 2 To 22 Step 5 '最后一列暂时定为第22列,你可以自己调整 Set MyRange = Union(MyRange, Columns(i)) Next i MyRange.Select MyRange.Delete End Sub

使用下述代码即可实现: Sub main() Columns(6).Delete Columns(4).Delete Columns(1).Delete End Sub 其中用到的Columns是列的意思,括号里面的数字,就是列数,如A列就是1,D列对应4,F列对应6等; 这其中用到了一个小技巧,就是从后往前删除...

比如删除D列空白的行 Sub S() Dim c%, i% c = Cells(Rows.Count, 4).End(3).Row For i = c To 1 Step -1 If Cells(i, 4) = "" Then Rows(i).Delete NextEnd Sub

如果是删除列内容Range("A:A,B:B,D:D").ClearContent如果是彻底删除列:Range("A:A,B:B,D:D").Delete

Sub test() Dim iC&, x& iC = Cells(1, 256).End(xlToLeft).Column For x = iC To 1 Step -1 If Application.CountA(Columns(x)) = 0 Then Columns(x).Delete Next x End Sub 这是判断整列都没有数据,才删除,如果只需要判断第一行的单元格没有...

用vba,下面是代码 Sub test() For n = 2 To 25 For m = 11 To 26 If Cells(n, m).Interior.ColorIndex -4142 Then Columns(m).Clear: Exit For Next Next End Sub

可以删除的吧?你试试下面的代码,删除D列的 Sub del() Sheet1.Range("d:d").Delete End Sub

Sub Macro1() Dim a, b b = 0 a = 1 For a = a To 255 Step 0 If Cells(1, a) = "品号" Or Cells(1, a) = "数量" Or Cells(1, a) = "交期" Then a = a + 1 Else Columns(a).Select Selection.Delete Shift:=xlToLeft End If b = b + 1 If b > 25...

Sub aaa() Set rn = Nothing For Each Rng In [E1:AW1] If Rng > 5 And Rng < 12 Then If rn Is Nothing Then Set rn = Rng Else Set rn = Union(rn, Rng) End If End If Next Rng If Not rn Is Nothing Then rn.EntireColumn.DeleteEnd Sub

网站地图

All rights reserved Powered by www.hczm.net

copyright ©right 2010-2021。
www.hczm.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com