Excel VBA快速去除Excel中的所有公式

3 篇文章 2 订阅

需求

Excel表格中如果有大量的公式,不光会影响打开、保存的速度,而且在传给别人的时候也可能会出现一些小问题,例如链接找不到等等。那么如何快速去掉单元格内的公式呢,下面提供两个小技巧。

方法一

复制—粘贴—选择值

方法二

直接打开Visual Basic编辑器(快捷键ALT+F11),然后复制下列代码到编辑器内,全选代码,直接F5执行:

Sub excel去除所有公式()
    Dim sheet As Worksheet
    For Each sheet In Sheets
        sheet.UsedRange = sheet.UsedRange.Value
    Next
End Sub
  • 4
    点赞
  • 12
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,以下是一种可能的 VBA 代码实现方式: ``` VBA Sub ExportToTxt() '定义变量 Dim txtFilePath As String Dim txtFileNum As Integer Dim row As Integer Dim col As Integer Dim cellData As Variant Dim rowContent As String '获取要导出的文件路径和文件名 txtFilePath = Application.GetSaveAsFilename(InitialFileName:="", _ FileFilter:="Text Files (*.txt), *.txt") '如果用户未选择文件,退出 If txtFilePath = False Then Exit Sub End If '打开文件 txtFileNum = FreeFile() Open txtFilePath For Output As txtFileNum '循环读取每个单元格,并将其写入TXT文件 For row = 1 To ActiveSheet.UsedRange.Rows.Count rowContent = "" For col = 1 To ActiveSheet.UsedRange.Columns.Count cellData = Cells(row, col).Value '将单元格数据转换为字符串并添加到行内容 rowContent = rowContent & CStr(cellData) & "," Next col '去掉最后一个逗号 rowContent = Left(rowContent, Len(rowContent) - 1) '将行内容写入TXT文件 Print #txtFileNum, rowContent Next row '关闭文件 Close txtFileNum '提示导出完成 MsgBox "文件已成功导出为:" & txtFilePath, vbInformation, "提示" End Sub ``` 这段代码假设你要导出的 Excel 表格只包含纯文本数据,且每个单元格的数据以逗号分隔。如果你需要导出包含格式和公式的表格,或者需要不同的分隔符,你需要对代码进行修改。 使用方法: 1. 打开要导出的 Excel 表格; 2. 按下 `Alt+F11` 打开 VBA 编辑器; 3. 在 VBA 编辑器插入一个新模块; 4. 将以上代码复制粘贴到新模块; 5. 在 VBA 编辑器按下 `F5` 运行代码; 6. 选择要导出的 TXT 文件的保存路径和文件名; 7. 点击“保存”按钮,等待程序运行完成; 8. 导出完成后,会弹出一个提示框,告诉你导出的文件路径和文件名。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值