|
▼Jカーター さん 本当に何度もありがとう御座います。
私にとっては非常に有効なコードだと思い、また今後実際に使いまわしたいと
思ったので何度もお尋ねしました。
本やネットを見てもこのようなコードを見つけることは出来ませんでした。
結局以下のように解釈し、この解釈に基づき今後は使ってみようと思います。
Sub aaa()
Dim i As Long
Dim aa As Variant
Dim bb As Range
'1,よけいな範囲は処理しない
'シート全体で使われているセル かつ 選択されているセル
Set bb = Intersect(Selection, ActiveSheet.UsedRange)
'2,セルへのアクセスはできるだけ少なく
'bb範囲のセルの値をaa配列に入れる
aa = bb.Value
For i = 1 To UBound(aa, 1) '配列の添時の使用できる最大値を返す
'1は行の数、2だったら列の数
aa(i, 1) = StrConv(aa(i, 1), vbNarrow)
Next i
bb.Value = aa
Set bb = Nothing
End Sub
|
|