判断某列是否含有关键词，并修改同行其他单元格的内容

tiaralmorning

表中的N列，需要找到该列所有单元格中含有“限”字的单元格，修改其所在行中P列单元格的内容为“限价”
以上
初次接触VBA，找了好多帖子并没有这种类型的，遂发帖求助，请大神指点迷津

jiangxiaoyun

用查找--替换更快啊。。。。

tiaralmorning

Sub 123()
   Dim iRow& 'iRow为数据条数
        iRow = Range("A2").End(xlDown).Row '计算A列从2行向下至最后一个非空行个数
    For i = 2 To iRow
        If Range("N" & i) Like "*限*" Then
            Range("P" & i).Value = "限价"
        End If
    NextEnd Sub

参考循环和if 和like写出来的，倒是能执行

chis3

..............
這樣一句不好了
Sub test()
    Range("n:n").Replace "限", "限價"
End Sub

lsc900707

chis3 发表于 2018-7-20 17:25
..............
這樣一句不好了
Sub test()

两个不同列，这样不行的。