使用VBA插入Excel公式时如何使用变量？
在VBA中，可以使用变量来动态地插入Excel公式。以下是使用变量插入Excel公式的步骤：
- 声明一个变量并赋值：首先，需要声明一个变量并将其赋值为要插入的公式。例如，可以使用以下代码声明一个名为formula的变量，并将其赋值为要插入的公式字符串：
Dim formula As String
formula = "=SUM(A1:A10)"- 使用变量插入公式：使用Range对象的Formula属性，可以将变量中存储的公式插入到指定的单元格中。例如，可以使用以下代码将上述声明的formula变量中的公式插入到单元格B1中：
Range("B1").Formula = formula这样，变量中存储的公式就会被插入到指定的单元格中。
需要注意的是，插入的公式字符串必须符合Excel的公式语法规则。在公式字符串中，可以使用变量、单元格引用、函数等。
对于公式中需要引用的变量，可以使用字符串拼接的方式将变量值插入到公式中。例如，如果要将变量x的值插入到公式中，可以使用以下代码：
Dim x As Integer
x = 10
formula = "=SUM(A1:A" & x & ")"这样，公式中的变量x会被替换为实际的值。
总结起来，使用VBA插入Excel公式时，可以通过声明变量并赋值的方式，将公式存储在变量中，然后使用Range对象的Formula属性将变量中的公式插入到指定的单元格中。通过使用字符串拼接，可以将变量值动态地插入到公式中。
相关·内容
我正在Excel中进行数值积分，我希望从用户那里得到这个方程，而不是插入到Cell中。
示例
用户给我的x^3+x^2+2是F(X)
在A1中，我有数字2，我在B1中计算F(X)。
如何告诉excel，用户输入的方程是=A1^3+A2^2+2，我只需要把它转换成一个单元格。
我使用Val(InputBox())
谢谢你的帮助
浏览 5提问于2016-02-28得票数 2
回答已采纳
2回答
我想将公式从列复制到行。公式的地址中没有$ signature，所以我不能使用特殊的粘贴选项，因为它会更改每个单元格的公式中的地址。
我尝试运行宏，但它只将列中的最后一个单元格复制到行中的每个人。
Sub Zamiana()
For Each y In Range("A1:B1")
For Each X In Range("A2:A3")
y.Formula = X.Formula
Next
Next
End Sub
提前感谢您的帮助:)
浏览 4提问于2013-10-16得票数 2
Excel 2010是否有将字符串变量的文字内容放入excel单元格的方法？
我可以用这个硬代码实现我想要做的事情，但是这段代码在嵌套子程序中很深。我希望对此进行软编码，以便将Formula_wanted的内容插入到单元格中。下面是将公式的值放在单元格中的代码。
If modifier1 = "ILMROS " Then
Range("M4").Select
ActiveCell.FormulaR1C1 = "Sales Total"
Range("M5").Sel
浏览 1提问于2020-02-12得票数 1
假设单元格A1是一个日期:2017年6月23日
现在，在excel中，如果我将以下公式放入单元格B1中：
= IF(INT(C2)>INT(2/15/2017);"Year1";"Year2")
那它就正常工作了。
然而，如果我试图把它说成是VBA尾声：-
Set sht1 = xWb.Sheets("ProcessedData")
sht1.Range("B1").Select
sht1.Range("B1").Formula = _
"=IF(INT(A1)>INT(2/15/2
浏览 2提问于2017-10-25得票数 0
回答已采纳
我做了很多研究，但都找不到答案。
我使用PHPExcel从excel工作表中读取原始数据。效果很好。现在我需要一个从单元格A1到A500的和，即SUM(A1:A500)。为了做到这一点，我明白我需要：
步骤1.使用$sheet1->setCellValue(B1, "=SUM(A1:A500)")将此公式插入单元格。
步骤2.使用$sum = $sheet1->getCell('B1')->getCalculatedValue()获取计算值。
我的问题是，是否有任何方法不需要将公式插入到单元格中就可以得到$sum？换句话说，在没
浏览 2提问于2015-09-16得票数 0
回答已采纳
我在Excel工作簿中有一个VBA脚本，它收集特定文件夹中所有工作簿的结果。
Private Sub Workbook_Open()
Dim path As String
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim i As Integer
Dim data As Object
Set data = Worksheets("RawData")
path = data.Range("A1").Value
浏览 3提问于2020-05-29得票数 1
回答已采纳
我有一个excel工作表，在这个工作表中，我需要在用户输入范围的时间列中填充一个单元格范围，时间间隔也是如此。
我可以使用For循环来实现这一点，但是有可能存在~50000+单元，并且向每个单元格写入需要很长时间。
我认为在VBA中有一种方法可以通过创建一个范围大小的数组，填充这个数组，然后将数组复制到工作表中来实现这一点？我对通用C风格的编程相当熟悉，但不太熟悉VBA。
如果在A1包含开始单元格(例如1)和B1包含结束单元格(例如100)、A2包含开始时间(00:00:00)和B2包含时间间隔(00:05:00)的情况下，如何使用VBA填充单元格D1:D100 (例如00:00:00，00:
浏览 1提问于2013-12-29得票数 1
回答已采纳
我想在"A1“中插入一些文本"ABC”，并在"B1“中插入下面的单元格一个if语句。但是，我只插入了第一个条目"ABC“，然后在FormulaR1C2 "Object doesn't support this property or method"处出现错误。我不确定我是否正确使用了R1C2。我假设它代表第一排第二列，有人能帮我吗？
Dim Excel_App As Object
Dim strExcel As String
Set Excel_App = CreateObject("Excel.Application"
浏览 0提问于2012-10-29得票数 2
回答已采纳
我正在尝试编写一个VBA代码，它将与这个excel函数对一定范围的单元格等效。
=if(A1="", "", vlookup(A1, K1:M2000, 3, false))
我想将此应用于范围(A1:A15)，并使用VBA在范围(B1:B15)中插入函数。
浏览 2提问于2015-06-03得票数 0
回答已采纳
我试图使用VBA中的SUMIF公式在摘要表中填充多个单元格。
我有两张纸-摘要和CPTView。
我希望单元格C7填充SumIf公式的结果。我希望它能在CPTView A:A中查找与汇总单元格C4和sum CPTView C:C匹配的日期。
我想避免使用Application.WorksheetFunction，因为我希望这个单元格在数据更改时重新计算。
Private Sub summarypage()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Summary")
Dim cptrng As Range
D
浏览 8提问于2022-07-02得票数 2
回答已采纳
4回答
我正在用excel编写代码，而且我是新的：)
请帮助我解决以下问题：
我在A1 of =B1*C1*D1中有一个公式
细胞B1、C1和D1有各自的值(即3,2,1)。
我希望使用VBA作为字符串(即=3*2*1 )来获得公式。
浏览 4提问于2013-10-01得票数 2
回答已采纳
我有一个电子表格，其中包含许多请求数据的函数调用。我正在编写一个函数(用VBA)来检查是否有任何单元格包含错误值"# value“等。
目前，我正在逐行、逐列地迭代，首先检查单元格是否包含公式，如果包含，则检查instr中是否有"#VALUE“、"#N/A”等。
然而，我想知道模拟一下在excel中点击一整列，然后按ctrl+f来换值会不会更快……在VBA中。
最有效的方法是什么？我正在检查一个27列x 1200行大小的工作表。
编辑我刚刚意识到有一些单元格有"#N/A“，这是因为它们不包含特定的公式。我只需要在包含特定公式的单元格中搜索...这个是可能的吗？
浏览 4提问于2013-03-07得票数 6
回答已采纳
4回答
我想通过vba在一个包含双引号的单元格中插入一个if语句。
下面是我的代码：
Worksheets("Sheet1").Range("A1").Value = "=IF(Sheet1!B1=0,"",Sheet1!B1)"
由于双引号的原因，我在插入字符串时遇到了问题。如何处理双引号？
浏览 2提问于2012-01-27得票数 137
回答已采纳
2回答
我想知道在VBA中是否可以将变量的内容作为“代码”使用。例如：
x = 23
formula= "43,025*X^-0,452"
Value = ExecuteContentOf(formula)
我使用excel中的幂曲线来计算4个不同的x，y值的最佳曲线的公式。(1,40) (7，20) (30,10) (60,6)
结果是一个内有公式的图形。Excel自动计算。使用VBA，我可以从对象标题中提取公式的文本。
结果是= 43,025*C2^-0,452
现在，我希望自己在VBA中使用它，将C2更改为其他变量(而不是单元格)，因此y= 43,025*x^-0,452。因
浏览 5提问于2019-10-02得票数 0
回答已采纳
我搜索了各种各样的短语来回答我的问题，但我很难找到一个有效的解决方案。它可能涉及几个不同的解决方案的组合，或一个方法，我还没有想到；因此，任何帮助都将不胜感激。
假设我在单元格A1、A2、A3和A4中有公式。假设我希望把这些精确的公式移到右边的一列。
在VBA中，我可以说：
Range("B1:B4").Formula = Range("A1:A4").Formula
我想做的是这样的：
Range("B1:E1").Formula = Range("A1:A4").Formula
看看我的B:E范围是如何水平诗句的垂直范围A1:
浏览 5提问于2016-03-24得票数 3
回答已采纳
我正在编写一个VBA代码来替换位于特定目录中的多个Excel文件(工作簿)中的特定字符串。我尝试搜索堆栈溢出并找到答案，但这与通过Excel中的宏替换文本文件中的字符串有关。同样的链接是。
我的所有工作簿都有三个工作表，每个工作表都包含单元格A2中的彭博公式：
=BDH("CBK IN Equity","BID","07-04-2015 09:00:00","07-04-2015 16:00:00")
这项研究需要一个宏，该宏将用ALBK替换特定目录中许多此类工作簿中的CBK。这样做是为了下载ALBK的数据，而不是CBK。
浏览 5提问于2015-09-23得票数 4
回答已采纳
1回答
我正在SQL查询中构建公式，然后使用EXCEL VBA函数CopyFromRecordSet在电子表格中插入公式。公式的文本输入正确，但仅显示为文本，不计算。计算模式被设置为自动，单元格被格式化为"General“而不是"Text”。
为了得到计算公式，我必须输入每个单元格，就好像我要编辑公式一样，然后离开单元格，而不必实际编辑任何内容。只是输入和退出的动作导致公式计算，但必须在每个单元格上手动完成。
Sub Test1()
Application.ReferenceStyle = xlR1C1
Dim qry As String
qry = "SELEC
浏览 2提问于2014-09-19得票数 1
回答已采纳
2回答
我有一个可以将长字符串插入Excel单元格的VBA脚本。在某些情况下，字符串以=开头。似乎Excel将其解释为一个公式，但由于公式的内存限制，我得到了一个Out of Memory错误。
如何告诉Excel我正在写一个值，而不是一个公式？目前，我正在做这件事：
ws.Range("A" & row) = Mid(xml, first, CHUNK_SIZE)
我已经尝试了下面的代码，但它不能工作...
ws.Range(...).Value = ....
浏览 1提问于2010-03-10得票数 2
回答已采纳
2回答
A1是包含指向另一个工作表(即=Sheet2!B1)上的B1的链接的单元格。 如何让VBA复制A1的目标，而不是创建到A1本身的链接？我希望输出是=Sheet2!B1而不是=A1，但我必须通过A1才能得到它。 谢谢!
浏览 10提问于2021-05-04得票数 0
回答已采纳
我使用的是xlwing v'0.10.2‘。我发现range方法似乎并没有写出公式，而只是写出了计算值。公式从VBA中保留，但从python中写入时不保留。已尝试使用python UDF宏。
例如，对于单元格A1，我试图完成以下工作：
xw.Range('A1').formula = SUM(1,3) -> want to retain this formula
我是不是遗漏了什么？
浏览 0提问于2017-04-24得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
