Excel VBA 質問スレ Part67

[464 デフォルトの名無しさん (ﾜｯﾁｮｲ 89cc-aTVc) 2020/07/16(木) 11:51:40.64 ID:iXWxOn5X0]

同じフォルダ内の"取引実績"ブックの"関東地区"シートのＡ列・Ｂ列・Ｃ列・Ｊ列・Ｌ列・ＡＤ列の
それぞれ２行目から最下行までを配列に入れる方法を教えてください

Workbooks.Open ThisWorkbook.Path & "\取引実績", ReadOnly:=True

i = Sheets("関東地区").Cells(Rows.Count,1).End(xlUp).Row

ReDim SiresakiArray(i -1, 6) As Variant
'代入するのはA,B,C,J,L,AD列のみ
SiresakiArray() = Range("A2:??????

ActiveWindow.Close