将公式应用于单元格区域，然后粘贴值
将公式应用于单元格区域，然后粘贴值
提问于 2019-05-28 17:45:39
我需要将一个公式/函数(美元函数)应用到一个单元格区域，然后只剪切和粘贴值。
我有一个标题行，并使用Find找到我需要的列。然后，对于下面的所有单元格，我想应用美元公式。但是，宏末尾的结果需要是，应用公式后，这些单元格现在只包含值，而不是公式本身(这是因为我将使用工作表运行邮件合并，因此它不能包含公式)。
我尝试过运行Do While和其他剪切/粘贴方法。我只是不具备完成这件事的技能：
Sub ProjectSummaryAdjustment()
Workbooks("Project Summary").Activate
Range("A1",Range("A1").End(xlToRight)).Find("TD Budget Effort").Select这就是我对代码的理解。现在，对于下面的所有单元格，我想应用美元公式，然后将值粘贴到那里。我不介意它是否必须剪切并粘贴到第一个空列，然后再剪切并粘贴回原始列。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-05-28 18:57:54
首先，请确保您应该避免选择并激活。然后，您可以简单地使用evaluate进行转换。您需要先将该字段设置为文本：
With Workbooks("Project Summary").Worksheets("Sheet1") 'Change to your sheet name
Dim rng As Range
Set rng = .Range("A1", .Range("A1").End(xlToRight)).Find("TD Budget Effort")
'Test to make sure the header was found
If Not rng Is Nothing Then
With .Range(.Cells(2, rng.Column), .Cells(.Rows.Count, rng.Column).End(xlUp))
.NumberFormat = "@"
.Value = .Parent.Evaluate("index(DOLLAR(" & .Address & "),)")
End With
End If
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56347565
复制相关文章
![[S/MIME] Actalis Free S/MIME Certificates 与邮件签名/加密证书与 Outlook](https://ask.qcloudimg.com/http-save/yehe-1201223/c7b3de315831c2cf25120f589fd038c8.webp)
点击加载更多
相似问题
更改发件人的电子邮件地址
更改发件人电子邮件地址- WebDav
如何更改Google Apps电子邮件地址发件人姓名？
在Magento中更改发件人的电子邮件地址
替换。发件人电子邮件地址
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
