Uma possibilidade:
Sub monta_Array()
Dim q As Long
Dim questoes() As Variant
Dim x As Integer
With Sheets("Plan1")
q = .Range("A65536").End(xlUp).Row - 1
ReDim questoes(0 To q, 0 To 3) 'redimensiona array
For x = 2 To q
questoes(x - 2, 0) = .Cells(x, 1).Value 'inclui no array
questoes(x - 2, 1) = .Cells(x, 3).Value 'inclui no array
questoes(x - 2, 2) = .Cells(x, 4).Value 'inclui no array
Next
MsgBox questoes(0, 0) & "/ " & questoes(0, 1) & "/ " & questoes(0, 2)
End With
End Sub
Postado : 25/10/2019 1:57 pm