使用变量和单元格引用分配单元格公式

Question

我正在尝试将公式分配给其引用在每次迭代时都会更改的单元格。 但是，下面的作业的左侧似乎有效，因为如果我将右侧的“ =”“ Test”“”“设置为有效。

我想问题就出在我右边的公式上。 有字符串的组合，随每次循环迭代而变化的变量和取自单元格的值。

    Worksheets("LimsOutput").Cells(4, 2 + 14 * i).Formula = "=" & BR & " Blah blah " & Worksheets("Lims").Range("A3").Value

我认为问题可能与工作表中的引号和单元格引用有关。

Answer 1

以下是一个简单的示例。 我希望这可以帮助你。

 Sub sample()
    Dim lastRow As Long
    lastRow = Range("A65000").End(xlUp).Row

    Dim rng As Range
    Set rng = Range("B1:B" & lastRow)

    Dim BR As String
    BR = "STRING"

    rng.Formula = BR & " Blah blah " & cstr(Range("$A$3"))

End Sub

Answer 2

在您的情况下，Excel单元格中的连接公式看起来像这样

 = "String" & " Blah Blah " & "30/06/2012"

要将其转换为代码，请使用CHR(34)双引号和"&"

看这个例子

Worksheets("LimsOutput").Cells(4, 2 + 14 * i).Formula = "=" & _
                                                        Chr(34) & BR & Chr(34) & _
                                                        "&" & _
                                                        Chr(34) & " Blah blah " & Chr(34) & _
                                                        "&" & _
                                                        Worksheets("Lims").Range("A3").Value

还有一件事 ：）

Worksheets("Lims").Range("A3").Value会给你0.00248508946322068为30/06/2012

因此，上面的代码将提供类似STRING Blah blah 0.00248508946322068的输出，要最终获得日期，您还必须在日期前后添加CHR(34) 。 例如

Worksheets("LimsOutput").Cells(4, 2 + 14 * i).Formula = "=" & _
                                                        Chr(34) & BR & Chr(34) & _
                                                        "&" & _
                                                        Chr(34) & " Blah blah " & Chr(34) & _
                                                        "&" & _
                                                        Chr(34) & Worksheets("Lims").Range("A3").Value & Chr(34)