查找值后展开范围

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

在此示例中，找到的单个单元格将更改为＆＃34; X＆＃34;。我想将其扩展到该行中的多个单元格，以便＆＃34; X＆＃34;出现在找到的行的T到W列中。

Answer 1

你可以这样做：

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

Answer 2

这有效：

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