查找值后扩大范围答案

【问题标题】：Expand Range After Find Value查找值后扩大范围
【发布时间】：2018-06-20 18:56:14
【问题描述】：

我正在尝试扩展找到的范围以在行内的多个单元格中输入一个值，但找不到合适的解决方案。

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 列中。

【问题讨论】：

c.Offset(,-3).resize(1,4).Value = "X"

标签： excel vba

【解决方案1】：

这行得通：

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

【讨论】：

【解决方案2】：

你可以这样做：

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

【讨论】：