我需要将公式/函数(DOLLAR 函数)应用于一系列单元格,然后只剪切和粘贴这些值。
我有一个标题行并使用 Find 找到我需要的列。然后对于下面的所有单元格,我想应用美元公式。但是,我的宏末尾的结果需要是这些单元格现在只包含应用公式后的值,而不是公式本身(这是因为我将使用该工作表运行邮件合并,所以它不能有公式)。
我试过运行 Do While 和其他剪切/粘贴方法。我只是没有完成它的技能:(
Sub ProjectSummaryAdjustment()
Workbooks("Project Summary").Activate
Range("A1",Range("A1").End(xlToRight)).Find("TD Budget Effort").Select
这是我对代码的了解。现在对于下面的所有单元格,我想应用美元公式,然后将值粘贴在那里。我不介意它是否必须剪切并粘贴到第一个空列,然后剪切并粘贴回原始列。
首先确保您应该避免选择和激活。然后您可以简单地使用评估来进行转换。您需要先将字段设置为文本:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句