Question

我正在为我的班级项目执行线性插值。我创建了一个插值函数，并且必须动态执行计算，因为每个问题的列数都不同。所以，我检索了最后一列（ltr）的值并尝试将它与R1C1格式连接起来。但它不起作用。你能否提出一些想法，如何解决这个问题。请在下面找到以下代码：

Private Sub TrialCheck_Click() 
    Dim lrt As Double 
    With ActiveSheet 
         'retrives last column i.e lrt = 447
        lrt = .Cells(.Rows.Count, "F").End(xlUp).Row 
    End With 
    Range("I3").Value = Range("F3").Value * Range("B3").Value 
    Range("I58").Value = Range("F" & lrt).Value * Range("B58").Value 
     'MacroR
     'following works as 447 is hardcoded
     'Range("I4").Value = _
    "=(LinInterp(RC[-8],R4C[-4]:R447C[-4],R4C[-3]:R447C[-3])*RC[-7])" 
     'following code doesn't concatenate value of lrt
    Range("I4").Value = _ 
    "=(LinInterp(RC[-8],R4C[-4]:R&lrt&C[-4],R4C[-3]:R&lrt&C[-3])*RC[-7])" 
    Range("J4").Select 

    Range("I4").AutoFill Destination:=Range("I4:I57"), Type:=xlFillDefault 
    Range("I4:I57").Select 
End Sub

Answer 1

你必须进行字符串连接

"string" & lrt & "string" & lrt & "string"

Range("I4").Value = _ 
"=(LinInterp(RC[-8],R4C[-4]:R" & lrt & "C[-4],R4C[-3]:R" & lrt & "C[-3])*RC[-7])"

在RC样式表示法vba宏中连接单元格范围

1 个答案: