ভেরিয়েন্ট (অ্যারে) ভেরিয়েবলটি ব্যবহার করে আমি এটি এটি করি:
Dim a As Range
Dim arr As Variant 'Just a Variant variable (i.e. don't pre-define it as an array)
For Each a In Range.Cells
If IsEmpty(arr) Then
arr = Array(a.value) 'Make the Variant an array with a single element
Else
ReDim Preserve arr(UBound(arr) + 1) 'Add next array element
arr(UBound(arr)) = a.value 'Assign the array element
End If
Next
অথবা, যদি আপনার প্রকৃতপক্ষে কোনও ভেরিয়েন্টের প্রয়োজন হয় (উদাহরণস্বরূপ শেপস-রেঞ্জের মতো কোনও সংস্থায় স্থান দেওয়ার জন্য), তবে আপনি এটি এইভাবে করতে পারেন:
Dim a As Range
Dim arr() As Variant
ReDim arr(0 To 0) 'Allocate first element
For Each a In Range.Cells
arr(UBound(arr)) = a.value 'Assign the array element
ReDim Preserve arr(UBound(arr) + 1) 'Allocate next element
Next
ReDim Preserve arr(LBound(arr) To UBound(arr) - 1) 'Deallocate the last, unused element
arr = Range.Value
?