仅在空白单元格上的宏vlookup

时间:2017-10-12 12:08:41

标签: vba

我在空白单元格上遇到了vlookup功能的麻烦。

我有2列A和B. B是我将应用vlookup的列和带有“lookup value”的列A内容

表数组范围是d2:e7

我的宏:

Sub a()
    Dim x As Range
    Set x = Range("b2:b7").SpecialCells(xlCellTypeBlanks)
    x = Application.VLookup(Range("a2:a7"), Range("d2:e7"), 2, False)
End Sub

我尝试多次运行此代码,但总是出错了。你能帮助我吗?

屏幕截图:示例数据

Screenshot: Sample Data

2 个答案:

答案 0 :(得分:1)

在熟悉VBA之后,对我有用的代码是:

    Sub a()
    For i = 2 To 7
    If Sheet1.Cells(i, 2) = "" Then Sheet1.Cells(i, 2) = 
    Application.VLookup(Sheet1.Cells(i, 1), Sheet1.Range("d2:e7"), 2, 0)
    Next
    End Sub

答案 1 :(得分:0)

你的意思是

V=toeplitz([t0,t1-tn-1,t2-tn-2,...,tn-1-t1])