R-5 xr As Rangeの解決方法

質問者が納得こんばんわ。このソースで動いていませんか？どうなりたいかが、見えないですが・・・。ちなみに・・・For i = 1 To nd(i, 1) = xr(i)If d(i, 1) < 0 Thend(i, 2) = -1 * d(i, 1)ElseIf d(i, 1) > 0 Thend(i, 2) = d(i, 1)Elsed(i, 2) = 0End IfNext iはFor i = 1 To nd(i, 1) = xr(i)d(i, 2) = ABS(d(i, 1))Next iという書き方も...