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

ExCEl vBA 删除列的问题

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

Sub test()For i = 49 To 5 Step -1 If Cells(1, i) > 5 Then Columns(i).Delete End IfNextEnd 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...

Private Sub Worksheet_Activate() Columns("C:D").Select Selection.ClearContents Range("A1").Select End Sub 在EXCEL工作簿中的工作表名字处右击,然后查看代码,然后粘贴该代码,以上代码将执行:打开该工作表时自动清除C到D列的内容(单列...

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

录制一个宏,按住CTRL,选中A列,D列,F列,然后按删除.宏录制完了.再把宏内容看一下,就知道怎么处理. 如下: Range("A:A,D:D,F:F").Select Selection.Delete Shift:=xlToLeft

用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

Public Sub 删除为0行() Dim i As Long, H As Long H = Range("a65536").End(xlUp).Row For i = H To 1 Step -1 If Range("A" & i).Value = 0 Then Range("A" & i).EntireRow.Delete End If NextEnd Sub

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

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