Вратите сваку н-ту ставку користећи ВБА у Мицрософт Екцелу

Anonim

У случају да се питате како неко може пронаћи сваку н -ту ставку у колони. У овом чланку ћемо научити како вратити сваку н-ту ставку са листе. Користићемо ВБА код за проналажење резултата.

Питање: Желим да код макроа извуче сваку н -ту вредност из колоне. Покушавам да повучем вредности са једног листа / колоне у други лист / колону. Покушао сам да користим многе функције као што је ОФФСЕТ, али нисам успео да схватим формулу која може дати резултат.

Узмимо пример 100 вредности у колони А и желимо да сазнамо сваких 10тх вредност у колони Б.

Вредности узорка које почињу од ћелије А1 једнаке 1 до ћелије А100 једнаке 100; у наставку је снимак података у колони А:

Да бисмо добили резултат, морамо следити кораке у наставку да бисмо покренули ВБ едитор

  • Кликните на картицу Девелопер
  • Из групе кодова изаберите Висуал Басиц

  • Копирајте доњи код у стандардни модул
 Функција ИНДЕКСН (ИнпутРанге Ас Ранге, Н Ас Интегер) Ас Вариант 'враћа сваку Н-ту ставку из ИнпутРанге' --- Цоммент 'изаберите жељени циљни опсег за функцију и' --- Цоммент 'унесите као функцију низа са Цтрл +Схифт+Ентер. ' --- Коментар Дим ИтемЛист () Као варијанта, ц Као опсег, и Као дугачак, иЦоунт Ас Лонг и = 0 иЦоунт = 0 РеДим ИтемЛист (1 до ИнпутРанге.Целлс.Цоунт \ Н) За сваки ц У ИнпутРанге и = и + 1 Ако је и Мод Н = 0 Тада је иЦоунт = иЦоунт + 1 Укључено Грешка Настави следећу листу ставки (иЦоунт) = ц.Вредност при грешци Иди на 0 Прекини ако је следећа ц ИНДЕКСН = Листа ставки Ако је ИнпутРанге.Ровс.Цоунт> = ИнпутРанге.Цолумнс.Цоунт Затим ИНДЕКСН = Апплицатион.ВорксхеетФунцтион.Транспосе (ИНДЕКСН) Енд Иф Ерасе ИтемЛист Енд Функција 

  • Да бисте добили сваку н -ту ставку у опсегу Б1: Б10, формула је
  • {= ИНДЕКСН ($ А $ 1: $ А $ 100, 10)}

Напомена: ово је формула низа; стога се тастери Цтрл + Схифт + Енд морају притиснути заједно

  • Да бисте добили сваки 7тх вредност из опсега А1: А100; променићемо последњи аргумент са 10 на 7 и формула ће бити
  • {= ИНДЕКСН ($ А $ 1: $ А $ 100, 7)}

На овај начин можемо вратити сваку н-ту ставку са једног листа на главни лист.

  • Формула у другом листу садржи референцу листа
  • {= ИНДЕКСН (Лист 1! $ А $ 1: $ А $ 100, 10)}

Закључак: Уз помоћ горе наведене кориснички дефинисане функције, можемо имати флексибилност да сазнамо сваку н-ту ставку са једног листа на други.

Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у. Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште