Този урок ще покаже как да изведе масив в диапазон с помощта на VBA.
Изходен (печат) масив за обхват
Данните, които се съхраняват в масив, могат лесно да бъдат изведени в лист на Excel. Има 3 начина да направите това.
Изходни данни в различен диапазон
Можем да попълним масив с данни от един диапазон в Excel и след това да изведем данните в различен диапазон в Excel.
12345678 | Public Sub TestOutput ()'декларирайте масиваDim rnArray () Като вариант'попълнете масива с диапазонаrnArray = Диапазон ("A1: H24")'извежда масива в различен диапазон от клеткиДиапазон ("J1: Q24") = rnArray ()End Sub |
Целият масив се копира в един ред код в масива и след това се извежда изцяло в различен диапазон от клетки на листа.
Превключване през масив и извеждане на данните
Този пример ще премине през масив, извеждайки масив в диапазон.
12345678910111213 | Public Sub TestLoopArray ()'декларирайте масиваDim rnArray () Като вариант'Обявете цяло число за съхраняване на броя редовеЗатъмнете iRw като цяло число„Присвояване на диапазон на променлива от масиваrnArray = Диапазон ("A1: A10")'цикъл през стойностите в масиваЗа iRw = LBound (rnArray) Към UBound (rnArray)'попълнете различен диапазон с даннитеКлетки (iRw, 2). Стойност = rnArray (iRw, 1)Следващ iRwEnd Sub |
LBoundи UBoundвръща началния индекс (долна граница) и крайния индекс (горна граница) на масив, в този случай 1 и 10.
Транспониране на данни от масиви
Също така можем да транспонираме данните в масива в листа на Excel. Транспонирането ви позволява да показвате данните хоризонтално в листа на Excel.
Например, ако имаме списък със състояния в Excel и желаем да ги транспонираме.
След това можем да изпълним следния код:
12345678 | Public Sub TestOutputTranspose ()'декларирайте масиваDim rnArray () Като вариант'попълнете го с диапазонаrnArray = Диапазон ("A1: A38")„транспониране на даннитеДиапазон (клетки (1, 3), клетки (1, 40)). Стойност = Приложение. Транспониране (rnArray)End Sub |
Което би довело до следното:
Изход към Debug.Print
Също така можем да изведем стойностите на масива в прозореца за отстраняване на грешки.
12345678910111213 | Public Sub TestLoopArray ()'декларирайте масиваDim rnArray () Като вариант'Обявете цяло число за съхраняване на броя редовеЗатъмнете iRw като цяло число„Присвояване на диапазон на променлива от масиваrnArray = Диапазон ("A1: A10")'цикъл през редовете - 1 до 10За iRw = 1 към UBound (rnArray)'изход към непосредствения прозорецDebug.Print rnArray (iRw, 1)Следващ iRwEnd Sub |