查找单元格的值并赋值，求大神找找原因

cwb757136008

Sub jjj()
Cells(3, 2).Select
For I = 400 To 3 Step -1
Cells(I, 2).ClearFormats
If Cells(I, 2) = "余笑" Then
Cells(I, 11).Value = "罗生"
Range(Cells(I, 1), Cells(I, 11)).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
End If
Next
Application.ScreenUpdating = False
End Sub

代码如上，网上导出的表格就是找不到余笑，如果自己在Cells(I, 2)列输入余笑，又可以做到找并赋值，大神麻烦找找原因

abc123281

因为你的数据是系统导出的  每个名字的后面会有一个人眼看不到的小字符“口”字  所以查找不到    可以事先处理一下就行了
Sub jjj()
Application.ScreenUpdating = FALSE
r = [b65536].End(xlUp).Row
Cells.Interior.ColorIndex = xlNone
For i = 3 To r
  a = Left(Cells(i, 2), Len(Cells(i, 2)) - 1)
  If a = "余笑" Then
    Cells(i, 11).Value = "罗生"
    Range(Cells(i, 1), Cells(i, 11)).Select
    With Selection.Interior
        .ColorIndex = 4
    End With
  End If
Next
Application.ScreenUpdating = TRUE
End Sub

abc123281

可以调试一下   当运行到b=cells(i,2)时    像下面的图  鼠标滑到cells(i,2)上就能看到了

abc123281

查找赋值.rar (18.41 KB, 下载次数: 3)

2019-1-17 19:31 上传

点击文件名下载附件

cwb757136008

abc123281 发表于 2019-1-17 19:31

懂了，十分感谢

LSL1128xgw

用包含余笑  instr 或者like 去判断就好了