[已解决]求大神修改下，指点下代码错误

釜底抽薪

工作簿1.zip (12.53 KB, 下载次数: 2)

2021-7-1 23:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-7-2 00:24

Sub cesui()

   Set d =CreateObject("Scripting.Dictionary")

   d("检测井") = "WS"

   d("雨篦") = "YB"

   arr =Range("e2:f" & [a65536].End(3).Row)

   For i = 1To UBound(arr)

      arr(i,2) = d(arr(i, 1))

   Next

  [e2].Resize(UBound(arr), 2) = arr

End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub cesui()

   Set d =CreateObject("Scripting.Dictionary")

   d("检测井") = "WS"

   d("雨篦") = "YB"

   arr =Range("e2:f" & [a65536].End(3).Row)

   For i = 1To UBound(arr)

      arr(i,2) = d(arr(i, 1))

   Next

  [e2].Resize(UBound(arr), 2) = arr

End Sub

祝順心，南無阿彌陀佛！

roserice

Sub cesui()
Dim arr1 As Variant
w = Range("e65536").End(3).Row
  arr1 = [{"检测井","WS";"雨篦","YB"}]
  For i = 1 To w
If Range("e2:e" & w)(i) = "检测井" Then Range("f2:f" & w)(i) = "WS"
  If Range("e2:e" & w)(i) = "雨篦" Then Range("f2:f" & w)(i) = "YB"
  Next
End Sub