求EXCEL vb 代码,判定单元格中是否包含某字符串!答: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 ...