InStr 搜索和单元格中的逗号

使用 VBA 的 InStr 函数可以在字符串中搜索指定的字符或子字符串。在 Excel 中，我们可以使用 InStr 函数来搜索单元格中是否包含逗号。下面是一个简单的示例代码：

Sub SearchComma()
    Dim cell As Range
    For Each cell In Selection
        If InStr(cell.Value, ",") > 0 Then
            MsgBox "单元格 " & cell.Address & " 中包含逗号。"
        End If
    Next cell
End Sub

vba
Sub SearchComma()
    Dim cell As Range
    Dim resultRange As Range
    
    ' 设置结果输出范围
    Set resultRange = Range("B1")
    
    ' 清空结果输出范围
    resultRange.Resize(ActiveSheet.UsedRange.Rows.Count).ClearContents
    
    ' 遍历每个单元格
    For Each cell In Selection
        ' 判断单元格的值中是否包含逗号
        If InStr(cell.Value, ",") > 0 Then
            ' 输出符合条件的单元格的地址到结果输出范围
            resultRange.Value = cell.Address
            ' 将结果输出范围向下移动一行
            Set resultRange = resultRange.Offset(1)
        End If
    Next cell
End Sub