主题：Excel文件根据字符快速查找对应位置，并给其后一单元格赋值

先找到var，看其在第几列。

在此列查找cw，然后找到后一个单元格。

foxtable查找excel文件，需要循环每一个单元格查找；你也可以直接用vba的find函数进行查找。

循环执行即可，如

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim first = ws.Cells.Find(What:="1")
If first IsNot Nothing Then
    Dim rg = first
    Do
        msgbox(rg.address)
        rg = ws.Cells.FindNext(after:=rg)
    Loop While rg IsNot Nothing AndAlso rg.address <> first.address
End If
app.visible = True
'Wb.Save
'App.Quit