谁帮看一下这是怎么原因。

吴虾咪

省份如里查找的词前面有空行就替换不出来，像云南这个前面有空行就替换不出来。还有云南-廊坊要是在二佰多行替换不了，也会出现错误。






Private Sub CommandButton1_Click()
Dim arr(), brr, x%, y%, m%, i%
brr = Range("A1:B1000").CurrentRegion

ReDim arr(1 To UBound(brr, 1) - 2, 1 To 1)
x = 2
For i = 1 To 2
    Do
    x = x + 1
   
    For y = 3 To UBound(brr, 1)
     brr(y, 3) = VBA.Replace(brr(y, 3), brr(x, i), brr(2, i + 3))
    Next y
    Loop Until brr(x, 1) = ""
    x = 2
Next i

For y = 1 To UBound(arr, 1)
    arr(y, 1) = brr(y + 2, 3)
Next y
Range("F3").Resize(UBound(arr, 1), 1) = arr
End Sub

高个子

上传附件吧

changking123

Loop Until brr(x, 1) = ""改成Loop Until x = Cells(1048576, i).End(xlUp).Row应该就可以了
这个是我之前写的，就没考虑你中间会有空白单元格。

至于到二百多行会出现错误我也不明白，要实际调试才知道，或者你至少说清楚提示什么错误。我猜测第二百多行是跟前面的数据没有连在一起，单独一个有数据的单元格。如果是这样的话干脆把brr = Range("A1").CurrentRegion改成brr = UsedRange，不过这样会产生不必要的运算，运行会比较慢。

gwjkkkkk

建议上传附件，模拟结果。。。

吴虾咪

changking123 发表于 2022-11-7 19:18
Loop Until brr(x, 1) = ""改成Loop Until x = Cells(1048576, i).End(xlUp).Row应该就可以了
这个是我之 ...

可以了，都没问题了
谢稿了。

吴虾咪

gwjkkkkk 发表于 2022-11-7 19:26
建议上传附件，模拟结果。。。

老师能帮我把你上回弄的，多个几个词根吗

changking123

吴虾咪 发表于 2022-11-8 09:21
老师能帮我把你上回弄的，多个几个词根吗

需求没有描述清楚，看一下附件是不是你想要的效果，我靠猜的。

吴虾咪

changking123 发表于 2022-11-8 20:50
需求没有描述清楚，看一下附件是不是你想要的效果，我靠猜的。

老师你弄的可以用了，麻烦你了。否词查询 1-.zip，老师看能弄吗

changking123

吴虾咪 发表于 2022-11-10 15:01
老师你弄的可以用了，麻烦你了。否词查询 1-.zip，老师看能弄吗

不知道你想型什么

吴虾咪

changking123 发表于 2022-11-19 18:18
不知道你想型什么

谢谢了老师，已经大神帮我弄完了。