Question

我不太清楚怎么说这个，所以如果这没有多大意义我会道歉：）

我希望能够将变量的信息放入excel中的单元格中，然后在VBA中引用它。这是我创建的查找和替换宏的一部分，所以我将循环遍历许多行。我想将数据放在一个单元格中，以便我可以通过excel表格扩展我循环的内容。

这是成功的示例代码：

Dim VarArray(1 To 3) As String

For i = 1 to 3
VarArray(i) = "ABC"
Next

Set rng = Range("D:D")
Varlookups = Application.WorksheetFunction.CountIf(rng, "<>")

For j = 1 To 3
For k = 2 To Varlookups

Findtext = "take " & VarArray(j) & " tablet" 
Replacetext = "insert " & VarArray(j) & " tablet" 
Columns("B").Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
Next

我希望能够在Excel中的单元格中手动放置这些部分：

Cell D2 =“take”＆amp; VarArray（j）＆amp; “平板电脑”

细胞E2 =“插入”＆amp; VarArray（j）＆amp; “平板电脑”

然后更改我的VBA公式以引用这些单元格：

Findtext = Range("D2").value
Replacetext = Range("E2").value

我尝试过使用评估但没有成功。我真的在如何实现这一目标上留下了空白。任何提供的帮助将不胜感激。：）

Answer 1

你必须提到像这样的表格的范围值..

Findtext = Sheets("Sheet1").Range("D2").Value
Replacetext = Sheets("Sheet1").Range("E2").value

Sheets("Sheet1").Range("D2").Value = "take " & VarArray(j) & " tablet"

Sheets("Sheet1").Range("E2").Value= "insert " & VarArray(j) & " tablet"

希望这可以帮助你：）

Excel VBA尝试使用单元格存储变量计算

1 个答案: