向Excel中的索引匹配函数添加变量

问题描述 投票:0回答:1

需要将变量添加为范围,但不能串联给出错误

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)"
excel vba indexing concatenation match
1个回答
0
投票

类似这样,但是我不确定您的工作表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)"
© www.soinside.com 2019 - 2024. All rights reserved.