如何显式声明一个string的开始/结束

我一直在用一些代码打开一个工作簿，并find基于参考单元格的值。 它search一个string，并把它旁边的单元格。 不幸的是我现在在工作簿中有2个单元“包含”引用string。 一个单元格是“当前分数”，另一个是“当前分数的百分比”。 有没有办法说明我只想要“当前分数”，而没有其他的单元格。

对不起，如果这是一个罗嗦，我可以提供的代码，如果有必要的

编辑：这是代码：

Sub Future_Score() Dim r Dim findValues() As String Dim Wrbk As Workbook Dim This As Workbook Dim sht As Worksheet Dim i Dim tmp Dim counter Dim c As Range Dim firstAddress Dim rng As Range ReDim findValues(1 To 3) findValues(1) = "Curren" & "*" & "Core" findValues(2) = "dummyvariable1" findValues(3) = "dummyvariable2" counter = 0 r = Range("A163").End(xlDown).Row Set rng = Range(Cells(163, 1), Cells(r, 1)) Set This = ThisWorkbook For Each tmp In rng Workbooks.Open tmp Set Wrbk = ActiveWorkbook 'For Each sht In Wrbk.Worksheets Set sht = ActiveSheet For i = 1 To 3 With sht.Range(Cells(1, 1), Range("A1").SpecialCells(xlCellTypeLastCell)) Set c = .Find(findValues(i), LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Offset(0, 1).Value secondAddress = c.Offset(0, 3).Value thirdAddress = c.Offset(0, 4).Value Do This.Activate tmp.Offset(0, 4).Value = firstAddress Set c = .FindNext(c) counter = counter + 1 Loop While Not c Is Nothing And c.Value = firstAddress End If End With Wrbk.Activate Next 'Wrbk.Activate 'Next sht Wrbk.Close Next tmp End Sub 

玩了一下代码了一下。 虚拟variables将被用于其他function，但基本上主要是要打开工作簿，find一个单元格，取其旁边的单元格，粘贴在原始工作簿。 问题是它拿起包含一个string的多个单元格。 我已经使用了"Curren" & "Core"因为这个macros似乎并没有很好地处理string中的空格。

Answer 1

更改

Set c = .Find(findValues(i), LookIn:=xlValues)

至

Set c = .Find(findValues(i), LookIn:=xlValues, LookAt:=xlWhole)

要求整个单元格与searchstring匹配，而不仅仅是单元格的一部分。