|
いつも御世話になります。
オートフィルターで抽出した列(1列)をクリップボードに格納し
それを取り出す時に一次元配列にする方法があれば教えていただきたいと思います。
Dim myBj As New DataObject
Dim mystr As Variant
Dim PL AS Long
Dim X As Variant
・
・
・
.Range("A1").AutoFilter Field:=2, Criteria1:="?" & X
PL = .Range("B1000000").End(xlUp).Row
Workbooks("ABC.xlsb").Sheets("sheet1").Range(.Cells(2, 2), .Cells(PL,2)).Copy
With myBj
.GetFromClipboard
mystr = .GetText
End With
mystrにはセルの内容が空白を挟みながれ連続して入っていました。
このmystrを一次元配列にしたいと思います。
なおシートに貼り付けてそれから取得すればいいとの解答もあると思いますが、
それは実施しております。
今回の質問はクリップボートから直接一次元配列の取得が可能かどうかです。
もし、可能であるならこの質問を有効とさせて下さい。
よろしくお願いします。
|
|