Question

求 EXCEL vb 代码，判定单元格中是否包含某字符串！

A列 B列
预收账款_金典嘉园_B3 金典嘉园
预收账款_玫瑰花园_A1 玫瑰花园
求一段宏代码，判断A列是否包含字符串“金典嘉园”或“玫瑰花园”，若包含则B列
显示“金典嘉园”或“玫瑰花园”，否则为B列空！
多谢高手解惑！

Answer 1

Sub fine()

Dim A As String

Dim B As String

A = "金典嘉园"

B = "玫瑰花园"

    For h = 1 To Cells(Rows.Count, 1).End(3).Row

        If InStr(1, Cells(h, 1), A) Then

            Cells(h, 2) = A

        Else

            If InStr(1, Cells(h, 1), B) Then Cells(h, 2) = B

        End If    

    Next

End Sub

Answer 2

用IFF和INSTR判断就是

Answer 3

用公式就可以达到目的啊..VBA的话一般用instr来判断.