| |
こんにちは。かみちゃん です。
>ただし、このようにしなくても、
>
>> Range("O2").Select
>> ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-1],""○"",""×"")"
>> Selection.AutoFill Destination:=Range("O2:O555")
>
>これらのマクロをA列の値が入っている最終行までにすればいいのではないでしょうか？
これについては、以下のようにするとできると思います。
（提示されたコードの整理もしています）
このようにすると、そもそもの質問にある行削除は必要なくなると思います。
Sub Sample()
Range("O2:P" & Rows.Count).Clear
Range("O2").FormulaR1C1 = "=IF(RC[-2]=RC[-1],""○"",""×"")"
Range("P2").FormulaR1C1 = "=IF(RC[-1]=""○"",""試済"",""未"")"
Range("O2:P2").Copy Range("O2:O" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub
|
|
かみちゃん
- 09/7/22(水) 23:46 -
