查找值后展开范围

我试图扩大find的范围来input一个值到行内的多个单元格，并找不到合适的解决scheme。 VBA更新到如此裸露的我：

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 

在这个例子中，find的单个单元格将更改为“X”。 我想扩展到该行内的多个单元格，所以“X”出现在find的行的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