通过for each in 循环与like 找出含有相关字符的单元格并标色

sero61

通过for each in 循环与like 找出含有相关字符的单元格并标色


学渣在线求教

你地铁图

单元格不能在数组里遍历

chxw68

简单问题。

sero61

chxw68 发表于 2023-4-19 20:42
简单问题。

::感谢老师指点 能加个微信带徒弟不

sero61

你地铁图 发表于 2023-4-19 18:38
单元格不能在数组里遍历

谢谢老师指点
     初衷是通过数组计算的高效性解决  后面发现行不通
那能不能通过数组找到后  利用数组中的位置 反写到单元格实现

z865593849

For Each rng In Range("a1").CurrentRegion
    If rng Like "**" Then
        MsgBox rng.Address
    End If
Next

liulang0808

用数组，需要考虑数组跟表格区域的对应关系，当前表格内容相对比较规范
如果已用区域不是从A1单元格开始，就要注意对应关系了

sero61

liulang0808 发表于 2023-4-20 07:12
用数组，需要考虑数组跟表格区域的对应关系，当前表格内容相对比较规范
如果已用区域不是从A1单元格开 ...

感谢分享

tanglf188

两例
Sub xxfind()
    Dim arr(), i&, j&
    arr = Sheet1.UsedRange
    Cells.Interior.ColorIndex = 0
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) Like "*商场*" Then Cells(i, j).Interior.ColorIndex = 6
        Next
    Next
End Sub

Sub xxfind1()
    Dim mc As Range
    Cells.Interior.ColorIndex = 0
    For Each mc In Sheet1.UsedRange
        If mc.Value Like "*商场*" Then mc.Interior.ColorIndex = 6
    Next
End Sub