如何删除EXCEL表格某一列中用公式得到的0.0,用VBA怎么编写这段代码,谢谢

如题所述

第1个回答  2019-09-03
Sub deleteData()For j = 2 To [a65535].End(xlUp).Row For i = 2 To [a65535].End(xlUp).Row If Worksheets(1).Range("A" & i) = Worksheets(2).Range("A" & j) and Worksheets(1).Range("B" & i) = Worksheets(2).Range("B" & j) Then Worksheets(1).Range("A" & i) = "" Worksheets(1).Range("B" & i) = "" Worksheets(1).Range("C" & i) = "" End If NextNextEnd Sub追问

需要插入一个按钮么,我这里面好多表

本回答被网友采纳

怎么取消EXCEL工作表复制粘贴时候的公式,需要用VBA代码解决
1.C1中的数值是公式计算结果:2.Alt+F11,输入如下代码:Sub main()Range("A1:C1").Copy Range("A2").PasteSpecial xlPasteValues End Sub 3.F5执行代码,结果如下:可以看到C2中的结果为数值,而没有公式

excel删除无尽空白列用VBA宏代码删除
1、将光标点击一下O(如图)→ 同时按下Shift和Ctrl(键盘左下)→ 再按下“→”键 → 右键“隐藏”(如图)即可。2、取消隐藏时,将光标放在N(最后一列)的右边,出现 这个标识时,再右键选择“取消隐藏”或者 将光标放在N(最后一列)的右边,出现 这个标识时,直接长按左键拉开。这样就完成...

EXCEL中如何用VBA去掉小数点后的数字0?
G1数组公式,在单元格里粘贴了以后,千万不要按回车退出,而要按“Ctrl+Shift+回车”结束输入,下拉:=--IFERROR(REPLACE(F1,FIND(".",F1)+1,MIN(IFERROR(FIND(ROW($1:$9),F1),FALSE))-FIND(".",F1)-1,""),F1)

如何用宏程序删除EXCEL工作薄中的某一行
1、在Sheet2中第一列从第一行开始依次输入1、2、……10(验证效果用的)2、在EXCEL的VBA编辑器中输入如下代码:Sub test()Sheets("Sheet2").Activate Rows("2:2").Delete Shift:=xlUp MsgBox "请查看删除效果"Sheets("Sheet1").Activate End Sub 这里的2可以修改成其他整数试试 ...

Excel 怎么样用VBA语句删除空值及零所在的列
以下代码能满足要求:Sub 删除空列()For i = UsedRange.Columns.Count + UsedRange.Column - 1 To 1 Step -1 If Application.CountIf(Columns(i), 0) = Application.CountA(Columns(i)) Then Columns(i).DeleteNextEnd Sub

如何用宏程序删除EXCEL工作薄中的某一行
1、在Sheet2中第一列从第一行开始依次输入1、2、……10(验证效果用的)2、在EXCEL的VBA编辑器中输入如下代码:Sub test()Sheets("Sheet2").Activate Rows("2:2").Delete Shift:=xlUp MsgBox "请查看删除效果"Sheets("Sheet1").Activate End Sub 这里的2可以修改成其他整数试试 ...

excel求如何用宏实现删除指定列的指定字
打开表格文件,按组合键[ALT]+[F11],打开宏编辑器 在编辑器中插入模块 然后在右侧出现的模块代码编辑区录入一下程序代码 Sub 去掉元()表名 = "sheet1"列 = "c" '此处字母代表你要去掉元字的数据所在的列 开始行 = 1 '此处数字代表你要去掉元字的数据开始的行的行号 结束行 = 100 ...

excel删除数字保留文本的两种方法通过使用VBA代码和word替换法来删除数...
在excel中数字与文字共存的情况下,如果有规律,可以使用公式来分离字母、汉字、数字;如果没有规律,比较理想的还是是用VBA来解决。下面是具体的excel删除数字操作步骤:按ALT+F11,打开VBE编辑器,单击插入——模块,复制下面的代码,然后按F5键运行,excel会自动将A列所有的内容删除数字之后的结果提取放在...

excel求如何用宏实现删除指定列的指定字
打开表格文件,按组合键[ALT]+[F11],打开宏编辑器 在编辑器中插入模块 然后在右侧出现的模块代码编辑区录入一下程序代码 Sub 去掉元()表名 = "sheet1"列 = "c" '此处字母代表你要去掉元字的数据所在的列 开始行 = 1 '此处数字代表你要去掉元字的数据开始的行的行号 结束行 = 100 ...

excel 用VBA如何删除一列中的重复数据
1、打开要进行数据处理的表格,2、按ALT+f11,进入VBE程序操作页面,3、将鼠标下移,右键弹出如图,4、选择插入-模块,5、鼠标向右移动,将如下代码写入:Sub test()Dim d As Object Dim r%, i Dim arr Set d = CreateObject("scripting.dictionary")With Worksheets("sheet1")r = .Cells(....

相似回答