Vba 试图找到一组数字

我正在尝试开发一个小的VBA程序（不是公式）来帮助在一组数字中找到数字15。我正在使用Excel2010，Windows7软件。我正在学习VBA，但还有很长的路要走，当然会感谢任何帮助我开始这一步

谢谢 迈克

我需要该程序在以下特定单元格中查找最后一个数字中有15的任何数字对（例如8-15或1-15或12-15）：B30、E30、H30、K30、N30（可以是多组数字，数字范围中有15）。这些单元格只是示例，列表很长，但我可以在后面输入额外的单元格）

如果没有积极的结果，结束程序

循环通过一些预先确定的范围（由

SearchRange

设置）

使用

Right

查看

SearchCell

中的最后2个字符是否为

15

如果

TRUE

（即

15

位于字符串的最后两个字符中），则将单元格颜色设置为红色

如果

FALSE

不执行任何操作

---

---

堆栈溢出不是代码编写服务。我们非常乐意帮助您找出为什么您自己编写的代码不起作用。我这里有一个示例代码，它将在一系列单元格中循环，以找到“A1”播放代码，编辑范围，并将一行从

if c=“A1”改为
if c Like”*15然后
谢谢你的链接，它看起来很棒@DavesexcelHi我刚试过你的代码，效果很好。非常感谢您的帮助@Urderboy
Option Explicit

Sub Found()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")

Dim SearchRange As Range, SearchCell
Set SearchRange = ws.Range("B30,E30,H30,K30,N30")

For Each SearchCell In SearchRange
    If Right(SearchCell, 2) = 15 Then SearchCell.Interior.Color = vbRed
Next SearchCell

End Sub