试图找到一组数字

Question

我正在尝试开发一个小型VBA程序（而非公式），以帮助在一组数字中找到数字15。我正在使用Excel 2010和Windows 7软件。我正在学习VBA，但是还有很长的路要走，并且肯定会感谢您帮助我开始使用VBA。

谢谢 迈克

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

如果没有肯定结果，则结束程序。

Answer 1

1. 遍历某个预定范围（由SearchRange设置）
2. 使用15查看SearchCell中Right的后2个字符
3. 如果TRUE（即15位于字符串的后2个字符中），则将单元格颜色设为红色
4. 如果FALSE什么也不做

---

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