在查找值之后扩展范围

Question

我正在尝试扩展发现的范围，以在行中输入一个值，但找不到适当的解决方案。

Dim C as Range
Dim SrchRng    
Set SrchRng = ActiveSheet.Range("W1", ActiveSheet.Range("W65536").End(xlUp))
Do
    Set c = SrchRng.Find("X", LookIn:=xlValues)
    If Not c Is Nothing Then c.Value = "X"
Loop While Not c Is Nothing

在此示例中，找到的单个单元将更改为" x"。我想将其扩展到该行中的多个单元格，因此" x"出现在t列中，直到发现行的w。

Answer 1

这有效：

If Not c Is Nothing Then Range("T:W").Rows(c.Row).Value = "X"

Answer 2

您可以这样做：

If Not c Is Nothing Then 
  c.Value = "x"
  ActiveSheet.Range("T" & c.Row & ":W" & c.Row) = "x"
End If