用variablesVBA将“”插入到公式中

我想插入一个vlookup到由variables定义的单元格区域。 我的问题是，在查找中的search条件（我给variables的名称x）需要在“”，否则vlookup不起作用。

但是，如果我以任何方式将这些“”插入到公式中，VBA认为我试图让它作为一个价值。

有谁知道我可以如何解决这个问题？

如果代码还有其他问题，请告诉我，我是新手。

Sub FindExchange() n = Worksheets.Count For k = n To 6 Step -1 Dim ws As Worksheet Set ws = Worksheets(k) Dim lColumn As Long lColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column For i = lColumn To 1 Step -4 Dim lrow As Long lrow = ws.Cells(Rows.Count, i).End(xlUp).Row x = Cells(1, i).Value ws.Range(Cells(2, i + 2), Cells(lrow, i + 2)).FormulaLocal = "=vlookup(" & x & ";Sheet1!$B$2:$C$832;2;FALSE)" Next i Next k End Sub 

Answer 1

得到双引号"只需添加Chr(34) 。

改变你的FormulaLocalstring为：

 "=VLookup(" & chr(34) & x & chr(34) & ";Sheet1!$B$2:$C$832;2;FALSE)" 

Answer 2

你可以试试这个解决scheme，

 "=vlookup(""" & x & """,Sheet1!$B$2:$C$832,2,FALSE)" 

Answer 3

 "=vlookup(" & """" & x & """" & ";Sheet1!$B$2:$C$832;2;FALSE)"