| |
▼kanabun さん：
>▼亜矢 さん：
>
>>オートフィルターで抽出した列（１列）をクリップボードに格納し
>>それを取り出す時に一次元配列にする方法
>
>> 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は０から必要な数マイナス１なのですが、最後に1ヶ余分なものが入っていました。
|
|
亜矢
- 10/8/19(木) 10:11 -
