Question

excel如何用宏实现查找指定两行（多行）里的数据并替换。

excel如何用宏实现查找指定两行（多行）里的数据并替换。：我不会写代码，要实现下面图上的功能，应该怎么写宏代码？

Answer 1

Sub test()
For i = 3 To 6
    For k = 2 To 5
        If Cells(i, k) = 1 Then Cells(i, k) = 2
    Next
Next
End Sub

追问

这个会替换掉b5：e5里面的数字，我希望的是只替换b4:e4,b6:e6里面的

或者还有多个指定的行

追答

Sub test()
For i = 3 To 6
    For k = 2 To 5
        If (i Mod 2 = 0) Then
            If Cells(i, k) = 1 Then Cells(i, k) = 2
        End If
    Next
Next
End Sub

再试试

追问

为什么查找时没有可替换的程序也会进行搜索呢

追答

只有搜索过了才知道有没有可替换的。

追问

因为我电脑运行慢，不满足条件也要运行很久。有一个代码就是没有满足条件好像就不会执行，点击就没有反应。你看能不能做到这样效果，不能就将就了。
sub 查找（）
dim i as integer
with range("a1":"y1")
for i =1 to .cells.count
if worksheetfunction.countif.(.cells(i),"0")=1 then
.cells(i)=1
end if
next i
end with
end sub

这是我抄的，我看不懂

这个只能查找一行，没有满足条件点击按钮就没有反应，

Answer 2

substitute(B3:E3,B6:E6,"1"，"2"）

追答

就是这个了 你试下先