如何使用VBA选中工作表中不带公式的单元格,谢谢

发布网友 发布时间：2023-08-18 22:45

我来回答

共3个回答

热心网友 时间：2023-09-06 09:52

你是指不带公式，但又不为空的单元格吗？如果是的话，录制宏——CTRL+G——定位条件——常量——确定。得到的宏处理一下就是了

热心网友 时间：2023-09-06 09:52

楼主你好,我给你想了个有效的法首先全选,然后选择性粘贴,只粘贴数值,这样就能在不改变任何东西的情况下去掉公式,只留下数值了,楼主快去试一试吧Cells.Select'全选Selection.Copy'复制Selection.PasteSpecialPaste:=xlPasteValues'选择性粘贴,只粘贴数值,去掉公式,不破坏格式ActiveWorkbook.SaveAsFilename:="C:\Noformula.xls"这个只是基本步骤当然了,如果只这样的话,那么原来表格里面的公式也没了,楼主根据自己的具体情况稍微一修改就行了楼主,写完之后我又看了看,觉得这样不能去掉宏,只能去掉公式,于是我又写了一段,这段的思路如下:新建一个工作簿,然后选择性的把数据粘贴过去,然后保存,这样的话就可以在不破坏任何东西的情况下去掉公式和宏(vba代码)了代码如下:Cells.Select'全选Selection.Copy'复制DimxlAppAsExcel.Application'创建一个新的excelDimxlBookAsExcel.WorkbookDimxlSheet1AsExcel.WorksheetSetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.AddSetxlSheet1=xlBook.Worksheets("sheet1")'设置活动工作表xlApp.DisplayAlerts=False'关闭警告xlApp.Visible=True'设置EXCEL对象可见xlSheet1.Activate'激活新的excel工作表xlSheet1.Cells.PasteSpecialPaste:=xlPasteValues'选择性粘贴,只粘贴数值,去掉公式,不破坏格式xlBook.SaveAsFilename:="C:\Noformula.xls"'楼主,这个保存路径名称你自己改msgbox"文件保存为C:\Noformula.xls"xlApp.DisplayAlerts=TruexlBook.Close'关闭工作表xlApp.Quit'退出excel程序楼主,我写得很辛苦哦,我女朋友给我聊qq我都没理她

热心网友 时间：2023-09-06 09:53

你可以录制个宏定位下看看