Самый эффективный способ синтаксического анализа большого массива в массиве VBA

Question

У меня есть большой диапазон данных в excel, который я бы хотел проанализировать в массиве для определенной пользователем функции. Диапазон 2250 х 2250. Это занимает слишком много времени, чтобы разобрать каждую ячейку с помощью для цикла, и он слишком велик, чтобы быть назначено на массив с помощью этого метода:

dim myArr as Variant 
myArr = range("myrange") 

Просто мозговой атаки здесь, будет его быть более эффективным для анализа в каждом столбце и объединения массивов? Есть идеи?

Thanks

Answer 1

Вы почти у цели.

код вам нужно:

Dim myArr as Variant 
myArr = range("myrange").Value2 

Обратите внимание, что я использую .Value2 свойство диапазона, а не только «Value», который читает форматы и региональные настройки, и, вероятно, искажать любые даты

Обратите внимание, что я не побеспокоил Redim и указал размеры массива: свойства Value и Value2 являются двумерным массивом (от 1 до Rowcount, от 1 до Col Count) ... Если это не так, одна ячейка, которая будет скалярным вариантом, который разбивает любой нисходящий код, ожидающий массив. Но это не ваша проблема с известным диапазоном 2250 x 2250.

Если вы отменили операцию и напишите массив обратно в диапазон, вам нужно будет установить размер принимаемого диапазона точно в размеры массива. Опять же, не ваша проблема с вопросом, который вы задали, но две операции обычно идут вместе.

Общий принцип заключается в том, что каждое «попадание» на рабочий лист занимает около двадцатого секунды - некоторые машины работают намного быстрее, но все они имеют плохие дни - и «удар» или чтение одной ячейки переменной почти точно совпадает с чтением диапазона в семь миллионов ячеек в массив вариантов. Оба значения равны миллионам раз быстрее, чем чтение этого диапазона в одной ячейке за раз.

В любом случае вы можете рассчитывать на любую операцию в VBA, как это происходит в нулевое время после того, как вы выполнили «чтение» и перестали взаимодействовать с рабочим листом.

Цифры все очень грубые и готовые, но общие принципы будут выполняться вплоть до момента, когда вы начнете выделять массивы, которые не будут вписываться в рабочую память, и, опять же, это не ваша проблема сегодня.

Вспомните Erase вариант массива, когда вы закончили, вместо того, чтобы полагаться на него, выходит за рамки: это будет иметь значение с диапазоном этого размера.

Answer 2

Это прекрасно работает.

Sub T() 
    Dim A As Variant 

    A = Range("A2").Resize(2250, 2250).Value2 

    Dim i As Long, j As Long 
    For i = 1 To 2250 
     For j = 1 To 2250 
      If i = j Then A(i, j) = 1 
     Next j 
    Next i 

    Range("A2").Resize(2250, 2250).Value2 = A 
End Sub 

Answer 3

Я думаю, что лучшие варианты:

1. Попробуйте ограничить данные для разумного количества, скажем 1,000,000 значения в то время.
2. Добавьте ошибку обработки ошибок, чтобы поймать ошибку Out of Memory, а затем повторите попытку, но уменьшите размер пополам, затем на треть, четверть и т. Д. ... пока это не сработает.

В любом случае, если мы используем наборы данных порядка 5 000 000 значений, и вы хотите убедиться, что программа будет работать, вам нужно будет отрегулировать код, чтобы обрезать данные.