单元格的格式有什么区别吗？运行后无反应

n6x1u3v6

程序写出来后运行，未提示有任何不对，但是运行完就是没有任何结果出来？我通过EXCEl自带的查找功能，能看到单元格间相同数值，但是VBA查不到，是因为两列数据格式不同，导致VBA不识别？


Sub chazhao()

Dim i As Long
Dim j As Long
Dim r As Long
Dim k As Long
        r = Sheet1.Range("b65536").End(xlUp).Row
        k = Sheet1.Range("m65536").End(xlUp).Row
   For j = 3 To k
      For i = 3 To r
         If Range("m" & j).Value = Range("b" & i).Value Then
           Range("n" & j).Value = Range("c" & i).Value
         End If

    Next i
Next j

End Sub

gdw831001

=LEN(B3)

=LEN(M3)

看一样不

n6x1u3v6

运行
LEN(B3)
和
LEN(M3)，得到的都是0，说明什么那？

n6x1u3v6

运行这个
MsgBox Len(Range("b3"))
MsgBox Len(Range("m3"))

第一个是27，第二个是21，应是什么问题那

gdw831001

If Replace(Range("m" & j).Value, " ", "") = Replace(Range("b" & i).Value, " ", "") Then

gdw831001

这样可以有结果，，但你的两个for好像有点问题

n6x1u3v6

gdw831001 发表于 2018-8-13 17:46
这样可以有结果，，但你的两个for好像有点问题

后来我用find 方法，通过模糊查找，就可以忽略空格单元格了，最终找出对应项，你提示的replace 实在不会用。

你说的两个“for"的使用，也么有问题，后来我通过EXCEL自带的TRIM()函数，先修剪，然后再用IF THEN, FOR NEXT 是可以实现的，运行可以得到结果。
谢谢你的思路，在这里学到很多东西，感谢和你一样热心的人。


Sub DFDF()
  Application.ScreenUpdating = False
  With Sheet1
    .[N3:N74] = ""
    Set r = .[B3:B62]
    For i = 3 To .Cells(.Rows.Count, "m").End(xlUp).Row
      Set B = r.Find(.Cells(i, "m"), lookat:=xlPart)
      If Not B Is Nothing Then
        
      .Cells(i, "n") = .Cells(B.Row, "c")
      End If
      Next i
      End With
      
     Application.ScreenUpdating = True
      
      
      
      
End Sub