在一系列單元格中輸入相對公式

Question

基本上我有一個公式來比較兩個值（溫度校准，上下文真的無關緊要）。 這是 5 台不同機器上的相似信息，所以最初我在 E23 中有一個公式只是說

=if(or(isblank(E21),isblank(E22),"",if(abs(E22-E21)>2,"FAIL","PASS"))

我會快速填充到第一列，一切都很好。

我正在使用 VB 根據正在處理的機器數量合並/取消合並格式單元格。 我的問題是讓公式填充到新的未合並或重新合並的單元格中。

這是我到目前為止所擁有的（ r只是一行， allcols返回 9）：

For c = 0 To allcols - 5
    Dim vcel As Range
    Dim v1 As String
    Dim v2 As String
    Set vcel = xlrange(r, 5 + c)
    v1 = vcel.Offset(-2, 0).Address
    v2 = vcel.Offset(-1, 0).Address

    vcel.Formula = "=if(OR(ISBLANK(" & v1 & "),ISBLANK(" & v2 & ")),"""",IF(ABS(" & v1 & "-" & v2 & ") > 2, ""FAIL"", ""PASS""))"
Next c

我希望填充E(r):I(r) 。

這是我嘗試過的。 它向我拋出一個 1004 對象定義錯誤。 我不確定如何進行故障排除。

Answer 1

 Dim s as string
 s= "=if(OR(ISBLANK(" & v1 & "),ISBLANK(" & v2 & ")),"
 s = s & Chr$(34) & chr$(34) 
 s = s & ",IF(ABS(" & v1 & "-" & v2 & ") > 2, "
 s = s & chr$(34) & "FAIL" & chr$(34) & ", " & chr$(34) 
 s = s & "PASS" & chr$(34) & "))"

 vcel.Formula =s