Question

我想要一系列单元格用指定的信息填写，但只有当A列是＆＃34; GFR＆＃34; 通过录制宏，在A列中搜索GFR，然后在C列和G列中粘贴信息，我能够非常简单地完成此任务

我的问题是我无法通过新数据让我的宏为我做这件事。它会查看旧数据并复制信息，但显然我无法复制它。

示例数据，列C和G已填入正确的信息：

<svg>

我需要提示如何开始这个。
如果列A = GFR，则相同行的列C = ML / MIN / 1.73M2，同一行的列G => 60

Answer 1

应该这样做......

Sub FillIn()

   Dim LR As Long

   With ActiveSheet
      LR = Cells(.Rows.Count, "A").End(xlUp).Row
      For i = LR To 1 Step -1
         If (.Range("A" & i).Value = "GFR") Then
            .Range("C" & i).Value = "ML/MIN/1.73M2"
            .Range("G" & i).Value = ">60"
         End If
      Next i
   End With

End Sub

根据列 - VBA填写一系列单元格？

1 个答案: