检索值以特定文本字符串结尾的所有单元格

Question

有没有办法从值比较中检索单元格？让我解释一下：

假设我有一个名为 "Codes" 的单元格列，多单元格区域包含以下值：

AS12G
A25LM
T5S0O
NBTLM
55EWO
进化
EXCLM
VBT7S
T82LM

如何检索最终出现在 'LM' 中的单元格？

这样我就可以捕获以下值：A25LM、NBTLM、EVOLM、EXCLM、T82LM

Answer 1

这是列 C

的示例

Sub LM_Getter()
    Dim N As Long, i As Long, mesage As String, kolumn As Long

    kolumn = 3 'column C
    mesage = ""
    N = Cells(Rows.Count, kolumn).End(xlUp).Row

    For i = 1 To N
        t = Cells(i, kolumn).Text
        If Right(t, 2) = "LM" Then
            mesage = mesage & "," & t
        End If
    Next i
    If mesage <> "" Then
        mesage = Mid(mesage, 2)
    End If
    MsgBox mesage
End Sub

捕获的列表可能会被存储以备后用。

Answer 2

由于没有发布 VBA 代码，我假设所需的解决方案是基于单元格公式的。这就是它的可能。假设您的数据在 "A:A" 列中，从 "A1" 开始。将此公式输入 "B1"：=IF(RIGHT(A1,2)="LM",A1,"") 并复制下来。

检索值以特定文本字符串结尾的所有单元格

Retrieve all cells with values that end in a specific text string

excel

vba