且构网

分享程序员开发的那些事...
且构网 - 分享程序员编程开发的那些事

如何在 Excel 工作表中找到确切的值

更新时间:2023-01-22 09:23:01

First hit for

First hit for

excel range.find exact match site:microsoft.com

是:

Range.Find一个>

找到了

看看类型:System.Object

LookAt Type: System.Object

Optional Object. Can be one of the following XlLookAt constants: xlWhole or xlPart.

并遵循 LookAt 链接,你看:

xlPart  Match against any part of the search text.
xlWhole Match against the whole of the search text.

顺便说一句:objTarget 是谁?

BTW: Who is objTarget?

更新:

您必须移植"(一些提示此处)您在对 VBScript 的评论中提到的 VBA 代码片段:

You have to 'port' (some hints here) the VBA code snippet you mention in your comment to VBScript:

Option Explicit

' Define Excel Consts unknown to VBScript
Const xlPart  = 2 
Const xlWhole = 1 

Dim oExcel : Set oExcel = CreateObject("Excel.Application")
Dim oWBook : Set oWBook = oExcel.Workbooks.Open("M:\lib\kurs0705\testdata\ut.xls")
Dim oRange : Set oRange = oWBook.Sheets("NewSheet").Range("A1:A11")
' translate named args to positional args
' expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)
Dim oFnd1  : Set oFnd1  = oRange.Find("Title1", , , xlPart)
WScript.Echo TypeName(oFnd1), CStr(oFnd1)
Dim oFnd2  : Set oFnd2  = oRange.Find("Title1", , , xlWhole)
WScript.Echo TypeName(oFnd2), CStr(oFnd2)

oWBook.Close
oExcel.Quit

输出:

cscript excelfind.vbs
Range Title10
Range Title1