拆分列内容后匹配问题,拆分开的项个数不同(最好说一下思路)

EXCEL高手养成记

首先把 F列 按;拆开 ,拆分的文本和 sheet2 A 列匹配,能匹配到的标记出  

结果估计不会很多,应该要用 vba实现吧

quqiyuan

一个都没有找到，然后我在第一行加了一个作为测试，有就标识红色字体，仅供参考。。。。

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    Set sh = wb.Sheets("sheet2")
    r = sht.Cells(Rows.Count, 6).End(3).Row
    arr = sht.[f1].Resize(r)
    brr = sh.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(brr)
        s = brr(i, 1)
        d(s) = ""
    Next
    For i = 1 To r
        s = Split(arr(i, 1), ";")
        For j = 0 To UBound(s)
            ss = Trim(s(j))
            If d.exists(ss) Then
                sht.Cells(i, 6).Characters(InStr(arr(i, 1), ss), Len(ss)).Font.ColorIndex = 3
            End If
        Next
    Next
    Beep
    Set d = Nothing
End Sub

loirol

应该不会很多和一个都匹配不上应该不是一回事吧？？

EXCEL高手养成记

quqiyuan 发表于 2024-12-23 13:16
代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet

嗯 谢谢,但是我好像删错数据了,谢谢指导