|
▼kanabun さん:
>▼亜矢 さん:
>
>>オートフィルターで抽出した列(1列)をクリップボードに格納し
>>それを取り出す時に一次元配列にする方法
>
>> Workbooks("ABC.xlsb").Sheets("sheet1").Range(.Cells(2, 2), .Cells(PL,2)).Copy
>> With myBj
>> .GetFromClipboard
>> mystr = .GetText
>> End With
>>mystrにはセルの内容が空白を挟みながれ連続して入っていました。
>>このmystrを一次元配列にしたいと思います。
>
>空白 ですか?
>列をクリップボードに送ると、vbCrLf改行コードで行が区切られて
>いるはずですが...
>なので、
> myArry = Split(.GetText, vbCrLf)
>とすると、
>一次元配列(最初の要素のIndex は 0)が得られると思うのですが。
>いちど 試してみてください。
ありがとうございました。一次元配列になっていましたが、最後の配列が
""の空白が入っていましたが、これはなぜでしょうか。実際のindexは0から必要な数マイナス1なのですが、最後に1ヶ余分なものが入っていました。
|
|