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

Question

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

Application.WorksheetFunction.VLookup(sheet1.Range("F2"), sheet2.Range("B11:D25"), 3, False)

B11 IS 日期单元格：我只想将月份和年份作为子字符串，所以我不需要日期。

F2 选择日期（2013 年 4 月），B11 是日期（2013 年 1 月 1 日），我想删掉 01。

查找 2013 年 4 月，查找值也应该 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)