VBAセルで選択した列をループする

Question

15桁と20桁のスプレッドシートがあるとします。私は2つの列（2番目と10番目のことを言うことができます）とすべての行の配列を作成したいと思います。どうすればいい？

これは良い出発点かもしれないが、私はセル（）関数を使って選択した列を定義する方法を知らない。私はあなたを理解だけでなく、あなたがシート列の2のための全てのデータを含む2次元配列を生成したい場合は

Dim array1(20, 2) As Single 
Set arrays = Sheets("Sheet1") 

For i = 1 To 20 
For j = 1 To 2 
My_array(i - 1, j - 1) = arrays.Cells(i, j - ??) 

Answer 1

を行う必要があります。私はこのような何か探してカスタム関数で、このようなことをするだろう：

' ----------------------------------------------------------------- 
' GetMyData - picks data from sheet's first 20 rows and two columns 
' - sheetName {String} - then name of the sheet where the data is taken 
' - col1 {Integer} - first column to read from 
' - col2 {Integer} - second column to read from 
' returns: 2-dimensional array containing data of columns from the parameters 
Function GetMyData(sheetName As String, col1 As Integer, col2 As Integer) As Variant 
    ' declarations 
    Dim sheet As Worksheet: Set sheet = ActiveWorkbook.Sheets(sheetName) 
    Dim result(20, 2) As Variant 

    ' logic 
    Dim row As Integer, col As Integer 
    For row = 1 To 20 
     result(row - 1, 0) = sheet.Cells(row, col1) 
     result(row - 1, 1) = sheet.Cells(row, col2) 
    Next 

    ' return the result 
    GetMyData = result 
End Function 

をそして、あなたはそのようにそれを使用することができます。今すぐ関数に関する言葉をいくつ

Private Sub CommandButton1_Click() 
    ' get data from Sheet3 first 20 rows columns 2(B) and 10(J) 
    Data = GetMyData("Sheet3", 2, 10) 
End Sub 

- 私たちがいることを知っているので、我々は、単一のループでそれを行うと、一度ここですべての仕事を行うことができます列の2からデータを取得したい：

For row = 1 To 20 
    result(row - 1, 0) = sheet.Cells(row, col1) ' Take data from col1 
    result(row - 1, 1) = sheet.Cells(row, col2) ' Take data from col2 
Next 

Answer 2

Dim array1(20, 2) As Single 
Set arrays = Sheets("Sheet1") 

For i = 1 To 20 
    For j = 1 To 2 
     My_array(i - 1, j - 1) = arrays.Cells(i, j) 

これ