質問: ActiveCell.Address End Sub ```
回答: 上記のコードでは`PrCell`を`String`型で宣言しているため、`ActiveCell.Offset(-1, 0)`を代入する時点で`String`への変換が発生します。ですので`PrCell`に値を代入しても`ActiveCell.Offset(-1, 0)`の値は変化しません。 ですので変数の型を`Range`に変更してください。この場合代入に`Set`ステートメントを使用するかどうかで挙動が変わりますので、以下のようになります。 ``` Dim PrCell As Range, i As Long, kaz As Long Set PrCell = ActiveCell.Offset(-1, 0) ``` なお最後の`PrCell = ActiveCell.Address`は不要だと思われます。