ご覧いただきありがとうございます。 下記のマクロコードが上手く機能しないのですが、間違い箇所と正しい

ご覧いただきありがとうございます。
下記のマクロコードが上手く機能しないのですが、間違い箇所と正しいコードをご教示いただけないでしょうか？

お手数ですがよろしくお願いいたします。

Sub 字下げレベルの表示()
'B列3行から250行目までの文字のインデントレベルをD列に表示させる
Dim i As Integer
For i = 3 To 250
Range("B", i).Value = Range("D", i).IndentLevel
Next
End Sub

No.1 ベストアンサー 回答者： ごまふあざらし 回答日時： 2016/04/20 15:27

コメントの通りB列のインシデントレベルをD列に表示させたいということで大丈夫ですよね？

Sub 字下げレベルの表示()
'B列3行から250行目までの文字のインデントレベルをD列に表示させる
Dim i As Integer

For i = 3 To 250

'B列のインシデントレベルを取得し、D列に代入
Range("D"& i).Value = Range("B"& i).IndentLevel

Next

End Sub

参考程度に。

この回答へのお礼

ごまふあざらし様

参考程度なんてとんでもないです！意図していた動きがかない、感謝の気持ちでいっぱいです！！！

間違いも分かりました！！

重ね重ねありがとうございます！！

お礼日時：2016/04/20 18:19