如何在excel vba中剪切字符串表数组vlookup

Question

如何在excel vba中的表arrary vlookup中剪切字符串。

Application.WorksheetFunction.VLookup（sheet1.Range（“F2”），sheet2.Range（“B11：D25”），3，False）

B11 IS日期单元格：我想仅将子字符串和年份子串起来，所以我不需要一天。

F2选择日期（apr-2013），B11是日期（01-apr-2013）进行表格查询，我想剪切01.

查找apr-2013和Lookup值也应该是2013年4月。

此致

Answer 1

首先，您可以使用“？”或者vlookup中的“*”通配符，然后你可以手动删除返回字符串中的“01-” - 如下所示：

Dim strLookup as String
Dim strReturn as String

strLookup = "??-" & Sheet1.Range("F2").Value

strReturn = Application.WorksheetFunction.VLookup(strLookup, sheet2.Range("B11:D25"), 3, False)
'Remove first 3 characters
strReturn = Mid(strReturn , 4, Len(strReturn) -3)