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

ExCEl vBA 删除列的问题

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

举个例子: 表sheet1中删除第3行和第3列(就是C列) Sheet1.Rows(3).Delete Sheet1.Columns(3).Delete 明白了吧? 还有不明白的地方找我:wzz3@netease.com

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

Sub test()For i = 49 To 5 Step -1 If Cells(1, i) > 5 Then Columns(i).Delete End IfNextEnd Sub

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

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

比如删除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

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 这是判断整列都没有数据,才删除,如果只需要判断第一行的单元格没有...

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 删除重复数据()'以col列为条件删除的重复行数据'本例是删除标题为sheet1的EXCEL表中以A列(从A2单元格开始)为条件的重复韩国数据Application.ScreenUpdating = False'可根据实际情况修改下面三行的结尾值'MsgBox "请确认子表名称是否是当前...

网站地图

All rights reserved Powered by www.hczm.net

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