表1内有村名，但大家输入的不一定规范，表2有正确名，如何替换成对的名

cjc209

SCL5801 发表于 2020-11-26 12:21
数据量大，可能速度不理想，看看对不

你的没有判断A列 一旦有相同的就会出错 不严谨

天外有天1234

SCL5801 发表于 2020-11-26 12:21
数据量大，可能速度不理想，看看对不

漂亮，基本满足需求，谢谢了

天外有天1234

cjc209 发表于 2020-11-26 12:46
你的没有判断A列 一旦有相同的就会出错 不严谨

高人，你说的很有道理，您 可不可以给一个解决方案啊，的确，A列也很重要。谢谢你了

天外有天1234

SCL5801 发表于 2020-11-26 12:21
数据量大，可能速度不理想，看看对不

你可不可以给个方案，和A列，就是镇街那一列也做一个判断，，要不数据量大的时候，出错的就多了起来

天外有天1234

cjc209 发表于 2020-11-26 12:46
你的没有判断A列 一旦有相同的就会出错 不严谨

兄弟，能不能给外vba的宏，

smiletwo

哪个是表2？

smiletwo

结果 放在D、E列：
Sub ss()
   Dim i, j, r1, r2, arr, brr
   r1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
   arr = Sheets("Sheet1").Range("A1:B" & r1)
   r2 = Sheets("行政区划 ").Cells(Rows.Count, 1).End(3).Row
   brr = Sheets("行政区划 ").Range("A2:C" & r2)
   For i = 1 To UBound(arr)
      If InStr(arr(i, 1), "办事处") Then arr(i, 1) = Replace(arr(i, 1), "办事处", "街道")
   Next
   For j = 1 To UBound(brr)
      If InStr(brr(j, 2), "社区") Then
          brr(j, 3) = Replace(brr(j, 2), "社区", "")
      ElseIf InStr(brr(j, 2), "村") Then
          brr(j, 3) = Replace(brr(j, 2), "村", "")
      Else
          brr(j, 3) = brr(j, 2)
      End If
   Next
   For i = 1 To UBound(arr)
      For j = 1 To UBound(brr)
         If arr(i, 1) = brr(j, 1) And InStr(arr(i, 2), brr(j, 3)) Then
            arr(i, 2) = brr(j, 2)
            Exit For
         End If
      Next
   Next
   Sheets("Sheet1").Range("D1:E" & r1) = arr
End Sub

天外有天1234

smiletwo 发表于 2020-11-26 13:43
哪个是表2？

行政区划就是表2，不好意思，

SCL5801

把a列加进去一块判断就行吧
Sub test()
  Dim ar, ba, i, j
  Application.ScreenUpdating = False
  ar = Sheet1.Range("a1:b12")
  br = Sheet5.Range("a23:b34")
  For i = 1 To UBound(ar)
     For j = 1 To UBound(br)          If ar(i, 1) = br(j, 1) Then
             If InStr( ar(i, 2),  br(j, 2)) Or InStr( br(j, 2),  ar(i, 2)) Then
                 ar(i, 2) = br(j, 2)
             End If
         End If
     Next
  Next
  Sheet1.Range("c1:d12") = ar
  Application.ScreenUpdating = True
End Sub

MOY838840554

这不是简单的匹配吧？涉及到相似度问题