根据列-VBA填充一系列单元格

Question

我希望一系列单元格填充指定的信息，但只有列a为" gfr"我能够简单地通过记录宏，在A列中搜索GFR，然后粘贴在C和G

列中的信息来完成此操作。

我的问题是我无法使用新数据为我做到这一点。它已经浏览旧数据并在信息中复制，但是显然我无法复制它。

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

Test Name(O)    Result(R)   Units(R)    Result Interpretation Flag(R)   Reference Low(C)    Reference High(C)   Reference Alpha(C)
GFR     ML/MIN/1.73M2   L           >60
CREATININE                      
POTASSIUM                       
WHITE BLOOD COUNT                       
PLATELET COUNT                      
GLOBULIN                        
GFR     ML/MIN/1.73M2   L           >60
CREATININE                      
POTASSIUM                       
SGOT (AST)      

我需要关于如何开始的提示。
如果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