Question

Dim cell_range As range
Set cell_range = Worksheets("beans").range("T11")

Dim x As Integer
x = 0
Dim current_range As range
Set current_range = cell_range

Dim actual_test_range As String
Do
    actual_test_range = current_range.Offset(0, x).address
    current_range.Offset(0, x).Formula = "=if(" & current_range.Offset(0, x).address & "= "APPLES",1,0)"
    x = x + 1
Loop Until x = 60

这个想法是，如果当前范围内的单元格=＆＃34; APPLES＆＃34;然后返回1，否则返回0

我不能让这个工作，因为VBA不会接受＆＃34; APPLES＆＃34;它当前所在的位置，我不知道如何用变量和硬编码字符串构造公式的字符串。

请帮忙。

感谢。

Answer 1

在引用的字符串（即公式）中使用时，您需要将引号加倍，但看起来它可能是循环引用，因为您将公式插入引用自身的单元格中。

current_range.Offset(0, x).Formula = "=if(" & current_range.Offset(0, x).address & "= ""APPLES"",1,0)"

使用零件公式和零件硬编码字符串在VBA中创建公式字符串

1 个答案: