VBA从Excel中删除公式符号
可以通过以下步骤实现：
- 首先，打开Excel并进入Visual Basic for Applications（VBA）编辑器。可以通过按下Alt + F11快捷键或在“开发工具”选项卡中选择“Visual Basic”按钮来打开VBA编辑器。
- 在VBA编辑器中，找到需要删除公式符号的工作表。可以在“项目资源管理器”窗口中选择相应的工作表。
- 在选定的工作表中，使用以下代码删除公式符号：
Sub 删除公式符号()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
rng.Value = rng.Value
Next rng
End Sub- 将上述代码复制粘贴到选定的工作表的代码窗口中。
- 运行代码。可以通过按下F5键或在VBA编辑器中选择“运行”菜单中的“运行子过程”来运行代码。
运行代码后，VBA将遍历选定的工作表中的所有单元格，并将包含公式的单元格的值设置为其计算结果，从而删除公式符号。这样，公式符号将被替换为相应的计算结果。
请注意，以上代码将仅删除公式符号，而不会删除单元格中的其他内容。如果需要删除整个单元格的内容，可以将代码中的rng.Value更改为rng.ClearContents。
推荐的腾讯云相关产品：由于题目要求不能提及具体的云计算品牌商，无法给出腾讯云相关产品和产品介绍链接地址。但腾讯云提供了一系列云计算服务，包括云服务器、云数据库、云存储等，可以根据具体需求选择适合的产品。
相关·内容
4回答
我需要一个VBA代码，它只清除包含公式的单元格，并跳过包含给定Excel工作表中的值的单元格。我有以下代码：
Dim rng As Range, cl As Range
Set rng = ThisWorkbook.Sheets("MATRIX").Range("C2:AU10000")
For Each cl In rng
If cl.Hyperlinks = .Hyperlinks Then
cl.ClearContents
End If
Next cl
浏览 0提问于2020-06-07得票数 2
我有一个excel文档，我想写一个宏来用单元格的值来完成列。例如：
在图1中，A列中有value1。我想要有一个visual basic按钮，当我单击它时，它会自动用value1填充该列的其余单元格，直到找到一个非空单元格。在b列中，我有value3、value4和value5，用黑色加粗。当我点击按钮时，vb代码会自动填充带有红色的单元格。对不起，我的英语，它不是我的母语。总而言之，一开始我只有黑色的值，当我单击按钮时，它应该会自动添加红色的值。你能帮帮我吗？我有这样的代码：
Sub split()
Dim columns As Range, i As Long
Set columns
浏览 16提问于2017-08-07得票数 0
1回答
我正在使用SHEETOFFSET VBA代码
Function SHEETOFFSET(offset, Ref)
' Returns cell contents at Ref, in sheet offset
Application.Volatile
With Application.Caller.Parent
SHEETOFFSET = .Parent.Sheets(.Index + offset) _
.Range(Ref.Address).Value
End With
End Function
然后在我的新工作表中添加以下代码
=sheetoffset(-1, B2)
将上一个工
浏览 1提问于2013-05-01得票数 1
我有一个有大约700行和7列的工作表。我需要每一行只有一个条目。也就是说，如果第1行在A、B和C列中有单元格值，那么应该创建两个新行，以便第1行在A列中有一个值，第2行在B列中有一个值，而第3行在C列中有一个值。
我在这件事上花了几个小时(很遗憾)，但我太糟糕了，我什么也没做。
Sub TThis()
Dim rng As Range
Dim row As Range
Dim cell As Range
'just testing with a basic range
Set rng = Range("A1:C2")
For Each row In rng.Row
浏览 0提问于2014-07-15得票数 0
回答已采纳
我有一个序列的每一行，我想copy and paste每个序列的最后一个数字旁边的那个单元格。这个序列包含两个点，我想复制和粘贴所有出现在第一个点之后的东西。
请检查以下示例：
Sequence: "12345678.11.11"
Result should be: "11.11"
在另一个牢房里。
对此有什么想法吗？无论是VBA编码还是普通excel工作表编码都可以。我会在稍后插入到VBA中。
谢谢你的帮助。你好，蒂博尔
浏览 5提问于2016-12-01得票数 1
回答已采纳
我正在完成一个旨在通过宏更新另一个.xls (工具)的.xls。所以基本上的想法是点击一个按钮，选择你的目标文件(你要更新的文件)，然后宏将通过复制、粘贴和替换公式以及添加工作表来对文件进行一些修改。此修补程序/更新文件仅包括将添加到目标文件中的单元格和工作表。
当我包含了一些引用命名范围的公式时，我开始遇到一些麻烦，这些命名范围只存在于工具(目标文件)中，但它们不存在于补丁.xls中。由于有许多名称，我决定断开补丁文件中的所有连接，以便将公式复制到没有内部引用的目标文件中。我想避免这样的问题，即这些引用会卡在不合适的旧文件中。
这些故意的链接损坏使得补丁文件显示使用命名范围的公式出现错误&#
浏览 0提问于2015-10-10得票数 1
是否有方法锁定excel报表中所有工作表中所有填充的单元格(仅)？如果this.If有excel属性，而不是vba代码很好的话，我会很高兴的。我找到了vba代码，但我们必须给出活页的名字。就像我有这么多床单，我不能给出所有床单的名字。
VBA代码：
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
For Each cl In Sheets("Sheet1").Cells
If cl = blank Then
cl.Locked = False
Else
浏览 2提问于2013-02-20得票数 1
3回答
我是VBA的新手，我正在尝试找出相同的值在特定列中重复的次数。
然后我需要将值和重复值的计数粘贴到另一个工作表的A和B列中。
我需要计算重复值的次数：
PSV_Cust_1
PSV_Cust_1
PSV_Cust_1
PSV_Cust_1
PSV_Cust_1
PSV_Cust_2
PSV_Cust_2
PSV_Cust_2
PSV_Cust_2
PSV_Cust_3
PSV_Cust_3
PSV_Cust_3
PSV_Cust_3
PSV_Cust_4
PSV_Cust_4
PSV_Cust_4
PSV_Cust_5
PSV_Cust_5
PSV_Cust_5
PSV_Cust_5
PSV_
浏览 4提问于2013-02-15得票数 0
2回答
我已经为我的工作创建了一个Excel工作簿，我在其中收集信息。在此工作簿中，我有一个工作表，其中可以填写各种货币的详细信息。根据编制者的选择，单元格B5中的值将更改为USD或LC。如果单元格B5中的值为USD，则应隐藏列C和E。这里的问题是，此代码不会立即取消隐藏列。单击任意单元格后，列将隐藏。请让我知道是否有解决这个问题的解决方案，即隐藏列，而无需每次单击随机单元格。谢谢。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B5").Value = "USD"
浏览 1提问于2018-04-04得票数 0
第一次尝试以重复的形式结束，我使用了建议的线程() &我做了一些更改，但仍然无法工作，什么也没有发生。
我希望根据不同工作表中的单元格(其中包含公式)的值更改工作表选项卡的颜色，但更改相同的工作簿。不同的工作表是主表“测试摘要”，我想参考的单元格对于每个工作表都是不同的。
我需要的是：
选项卡“显微镜”根据单张“测试摘要”单元格“C2”(本例为红色)中的公式将任何颜色更改为红色/橙色/绿色
根据“测试摘要”单元格"C3“中的公式将”培养“更改为红色/橙色/绿色(本例中为红色)
...and等
我更新的代码是在表格“显微镜”对象中。
Private
浏览 1提问于2020-05-27得票数 0
回答已采纳
2回答
我可以将引号和尾引号添加到用我的光标(单个单元格)选择的单元格中。
如果我选择一组带游标的单元格，如何将以下功能应用于所有选定的单元格？
Sub AddQuotes()
ActiveCell.Value = ("*" & (ActiveCell.Value) & "*")
End Sub
浏览 1提问于2015-11-24得票数 0
回答已采纳
2回答
这是我在这里的第一个问题，我对vba不是很有经验。我有一个名为Log的Excel工作表，其中单元格AK2:AQ500中的公式正在捕获信息。保存文档时，我希望将该区域中的任何非空单元格转换为值，同时将显示为空的单元格中的公式保留为空。有人能给我一些帮助吗？谢谢。
浏览 2提问于2018-03-21得票数 0
我对Excel非常陌生，所以请原谅，如果这个问题很简单的话:)我花了半天时间搜索一些简单而优雅的方法来解决我的小问题，但还没有成功。
问题:我需要检查每个单元格中的公式，并以某种方式修改公式(不管怎么做)。
那么，最有效的方法是什么呢？
到目前为止，我已经编写了一些使用UsedRange的代码行，但是它们的工作不正确，因为我还没有弄清楚如何识别UsedRange中的第一个单元格
事先非常感谢
你好，皮格
浏览 3提问于2016-09-10得票数 0
回答已采纳
1回答
嗨，我想在删除引用错误的同时删除单元格，但我的代码似乎无法工作。它会删除单元格，但不会删除引用错误。在这方面需要帮助。非常感谢!
Sub DeleteCells()
Dim rngError As Range
Dim R As Range
Set rng = Nothing
On Error Resume Next
Set R = Application.InputBox("Select cells To be deleted", Type:=8)
Set rngError = rng.Cells.SpecialCells(
浏览 1提问于2015-08-15得票数 0
我的Excel电子表格中有以下值和公式：
A
1 Shirt =Sheet2!A2
2 50 =C1
3 350 =Sheet3!D7
4 Product B =F8
5
6
列A中的值是从文件的其他部分获得的，方法是只使用相对单元格引用。
现在，我希望将这些单元格引用从相对于的绝对中更改，因此它们如下所示：
A
1 Shir
浏览 0提问于2018-07-04得票数 2
回答已采纳
我在我的Excel工作表上有一个命令按钮，它打开一个预加载了当前选定区域的application.inputbox，并将该区域中单元格的内容附加到这些单元格的注释中。
我使用if/else语句检查是否单击了Cancel按钮，但它没有退出sub；无论我单击OK还是cancel，代码都会运行。我认为要么是取消按钮没有返回'false‘，要么是我的if语句被破坏了。
代码如下：
Private Sub CommentLogButton_Click()
'This Sub Appends Cell Contents to Cell Comment
Dim rng As Range
Di
浏览 4提问于2015-08-04得票数 2
2回答
我有一些代码，应该将我的文本转换成适当的情况，但它不起作用。首先标记要转换的单元格，然后运行以下宏：
Sub ProperCase()
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
Next cell
cell.Value = WorksheetFunction.Proper(cell.Value)
End Sub
但是Excel给了我运行时错误91
对象变量或块变量未设置
浏览 2提问于2016-09-05得票数 0
回答已采纳
1回答
在Win 10中使用Excel 365
在定位/识别正在使用的工作表单元格时，我遇到了一个非常小的问题。例如，在单元格A1和cell H5中有常量。Cell B2包含可溢出的动态数组常量：
={1,2,"",4,5,6;7,8,9,"",11,99;100,"",0,0,100,0}
由于此表同时包含公式和常量，所以我尝试了我的信任：
Sub LocateCellsWithStuffInThem()
Dim rng As Range
With ActiveSheet.Cells
Set rng = Un
浏览 2提问于2020-05-21得票数 3
回答已采纳
2回答
我有一个带有合并单元格的工作表(例如，值“myValue”的B2:C3 )。如果我试图搜索合并后的单元格中的值，则
r = ThisWorkbook.ActiveWorksheets.Range("$A:$D").Find("myValue")
Debug.Print r.Address
我只获得具有类似值的其他单个单元格的地址，但不获得合并单元格的地址。
我怎么才能用VBA做到这一点？如果我使用Excel的手动搜索函数，它会在任何时候找到值。
最好的问候，哈利
编辑:当我使用Gary的代码时，我会得到一个运行时错误91。变量r是零。
浏览 5提问于2016-06-07得票数 0
回答已采纳
1回答
我有一个工作宏按钮，它将在B2:B15范围内“重置所有状态”为默认提示，以便我的同事指示职务的状态：
Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("B2:B15").Value = "please enter status"
End Sub
如果相邻的A列中没有值，则此宏将停止填充B列中的值“请输入状态”。看一看截图，它就会留下B6:B15的空白。列A值是vlookup结果。如果没有结果，则vlookup返回零(目前在条件格式的帮助下隐藏在白色字体中)
浏览 2提问于2019-11-15得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
