- ©«¤l
- 109
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7 Win10
- ³nÅ骩¥»
- Office 2019 WPS
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ²`¦`
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2024-4-9
|
¦^´_ 1# kasa - Sub FindIDByStrComp()
- Dim lngRow As Long
- Dim strFind As String
- Dim strValue As String
- Dim Range1 As Range
-
- With ActiveSheet
- lngRow = .Range("C" & .Rows.Count).End(xlUp).Row
- strFind = vbNullChar & Join(Application.WorksheetFunction.Transpose(.Range("C1:C" & lngRow).Value), vbNullChar) & vbNullChar
- lngRow = .Range("B" & .Rows.Count).End(xlUp).Row
- For Each Range1 In .Range("B1:B" & lngRow)
- With Range1
- .Interior.Pattern = xlNone
- strValue = vbNullChar & .Value & vbNullChar
- If Len(strValue) > 2 Then
- If InStr(strFind, strValue) > 0 Then
- .Interior.Pattern = xlSolid
- .Interior.Color = 255&
- End If
- End If
- End With
- Next
- End With
- End Sub
½Æ»s¥N½X |
|