返回列表 上一主題 發帖

如何用vba按條件取代儲存格內容

Sub yy()
a = Join([a1:i1&""])
For Each c In [a3:i22]
If InStr(a, c) = 0 Then c.Value = "x"
Next
End Sub

TOP

Sub yy()
For Each c In [a3:i22]
If [a1:i1].Find(c, , , 1) Is Nothing Then c.Value = "x"
Next
End Sub

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題