VLookup变量问题

时间:2016-05-08 21:48:27

标签: vba excel-vba excel

我正在尝试使用VLookup函数和引用表将时间与excel中的特定列相关联。我的工作表上的A列包含一个时间列表,格式为文本,B列只是数字1-53。即:

06:00 AM    2
06:15 AM    3
06:30 AM    4
06:45 AM    5

初始时间信息以01:00 PM - 05:00 PM的形式出现,因此左/右功能。

我使用以下代码获取Run-time error '1004': unable to get the VLookup property of the Worksheet function class",但是,当我使用(当前已注释掉的)行sTime = "01:00 PM"时,它正常工作,即使MsgBox sTime使用Left函数返回相同的值。

Sub timeCol()

Dim sTime As String
Dim eTime As String
Dim scol As String
Dim ecol As String

'eTime = Right(Worksheets("Paste").Range("D449").Value, 9)

sTime = Left(Worksheets("Paste").Range("D449").Value, 9)
'sTime = "01:00 PM"
scol = Application.WorksheetFunction.VLookup(sTime, Worksheets("Time").Range("A1:B52"), 2, False)
'ecol = Application.WorksheetFunction.VLookup(eTime, Worksheets("Time").Range("A1:B52"), 2, False)


MsgBox scol

End Sub

是什么给出了?

0 个答案:

没有答案