需要将变量添加为范围,但不能串联给出错误
Dim lr As Long
lr = Range("A1").CurrentRegion.Rows.Count
Dim arrayRangeAll As String
Dim arrayRangeID As String
arrayRangeAll = Range("A2:L" & lr).Address
arrayRangeID = Range("A2:A" & lr).Address
Range("N1").Select
ActiveCell.FormulaR1C1 = "Client_Coorelation"
Range("N2").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(SMSv2!" & arrayRangeAll & ",MATCH(SMSv1!RC[-11],SMSv2!" & arrayRangeID & ",0),4)"
类似这样,但是我不确定您的工作表SMSv1是什么。该字符串表示以下公式,来自我的20行示例工作表。
=INDEX(SMSv2!$A$2:$L$20,MATCH(SMSv1!RC[-11],SMSv2!$A$2:$A$20,0),4)
Dim lr As Long
lr = Range("A1").CurrentRegion.Rows.Count
Dim arrayRangeAll As String
Dim arrayRangeID As String
arrayRangeAll = Range("A2:L" & lr).Address
arrayRangeID = Range("A2:A" & lr).Address
Range("N1").Select
ActiveCell.FormulaR1C1 = "Client_Coorelation"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=INDEX(SMSv2!" & arrayRangeAll & ",MATCH(SMSv1!RC[-11],SMSv2!" & arrayRangeID & ",0),4)"