|
▼Asaki さん 回答ありがとう御座います。
>bb.Count
>が、何を数えているか、ご理解いただけていますか?
理解出来ていると思っています。
>対象セルが1つなら、配列にする意味がないのでしょう。
>多分、ここは"仕様"と考えるよりほかないと思っています。
”仕様”ですね。分かりました。
ところで先ほど教えていただいた2)の場合ですが、
出来たと思っていたのですが、以下のようにしたらデータが消えてしまいました。
何が悪いのでしょうか?
’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Sub aaa2() 'データが1行にしか無い場合
Dim i As Long
Dim aa As Variant
Dim bb As Range
Set bb = Intersect(Selection, ActiveSheet.UsedRange)
MsgBox bb.Count
ReDim aa(1, 1)
aa(1, 1) = bb.Value
For i = 1 To UBound(aa, 1)
aa(i, 1) = "99"
Next i
bb.Value = aa
Set bb = Nothing
End Sub
|
|