VBa vlookup，将范围替换为变量

Question

好的，我将重新提出问题。

我有一个工作表，其中有一个名为“My INT”的选项卡。 此选项卡包含一个数据表和一个按钮，该按钮带有一个名为“importRMR”的已分配宏。代码如下：

Sub importRMR()
Dim rng As Range

Set rng = ActiveSheet.Range("G3")
Sheets.Add(After:=ActiveSheet).Name = "RMR " & Format(Date, "DD-MM-YY")
ActiveSheet.Buttons.Add(966.75, 27.75, 153.75, 125.25).Select
Selection.OnAction = "Cimp"

Selection.Characters.Text = "Importuj"
With Selection.Characters(Start:=1, Length:=13).Font
    .Name = "Tahoma"
    .FontStyle = "Standaard"
    .Size = 16
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    End With
End Sub

这将创建一个具有特定名称的选项卡 :RMR " & Format(Date, "DD-MM-YY")

现在我手动将表格（始终相同）粘贴到新创建的选项卡“RMR 03/08/2018”。下一步是单击此选项卡中的按钮（ Importuj ），我的目标是： 1. Vlookup data in tab "my INT" where range(lookup array) is tab "RMR" 然后删除rmr tab。

诸如修剪数据粘贴值之类的程序我可以做，只是vlookup但是是个问题。

我当前的“importuj”按钮代码是： ub 测试（）

Dim DOTR As String

Dim shT As String
Set shT = Sheets(DOTR).Range("E2:H584")




'shT = Sheets(DOTR).Range("c1:e2").Select






DOTR = "RMR " & Format(Date, "DD-MM-YY")
'Sheets(DOTR).Range ("E2:H584").selc


Worksheets("My INT").Range("N3").Formula = "=vlookup(c3,sht,3,0)"


End Sub

很遗憾，我收到一个错误 - “编译错误” - 需要对象。

Answer 1

目标是将几个不同的字符串组合成一个有凝聚力的字符串：

=VLOOKUP(C3,'ABCDEF 03-08-18'!$B$4:$D$10,3,0)

这将被放置在一个单元格中，使用：

Worksheet.Range.Formula

工作表名称“ABCDEF”是任意的，我们动态创建日期。我们在 Excel 中使用命名范围“myNamedRange”并引用地址属性以实现灵活性，而无需编辑代码。

Dim strSheetName As String
Dim strNamedRange As String
Dim strDateSegment As String
Dim strPrefix As String
Dim shT As String

strSheetName = "My INT"
strNamedRange = "myNamedRange"
strDateSegment = Format(Day(Date), "00") & "-" & Format(Month(Date), "00") & "-" & Right(Year(Date), 2) & "'!"
strPrefix = "'" & "ABCDEF"

shT = "=VLOOKUP(C3," & strPrefix & strDateSegment & Worksheets(strSheetName).Range(strNamedRange).Address & ",3,0)"

Worksheets("My INT").Range("N3").Formula = shT