列に基づいてセルの範囲を入力します - 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