Ja jums rodas jautājums, kā kāds var atrast katru n -to vienumu kolonnā. Šajā rakstā mēs uzzināsim, kā atgriezt katru n-to vienumu no saraksta. Mēs izmantosim VBA kodu, lai atrastu rezultātu.
Jautājums: Es vēlos, lai makro kods no kolonnas iegūtu katru n -to vērtību. Es cenšos ievilkt vērtības no vienas lapas / kolonnas uz citu lapu / kolonnu. Es mēģināju izmantot daudzas funkcijas, piemēram, OFFSET, bet nevarēju izdomāt formulu, kas var dot rezultātu.
Ņemsim piemēru no 100 vērtībām A slejā, un mēs vēlamies to uzzināt ik pēc 10tūkst vērtība B slejā
Parauga vērtības, sākot no šūnas A1, ir vienādas ar 1, līdz šūnai A100 ir vienādas ar 100; šāds ir A slejas datu momentuzņēmums:
Lai iegūtu rezultātu, mums ir jāveic šādas darbības, lai palaistu VB redaktoru
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Nokopējiet zemāk esošo kodu standarta modulī
Funkcija INDEXN (InputRange kā diapazons, N kā vesels skaitlis) Kā variants 'atgriež katru N-to vienumu no InputRange' --- Komentārs 'izvēlieties funkcijai vēlamo mērķa diapazonu un' --- komentārs 'ievadiet kā masīva funkciju ar Ctrl +Shift+Enter. ' --- Komentārs Dim ItemList () kā variants, c kā diapazons, i tik ilgi, iCount tik ilgi i = 0 iCount = 0 ReDim ItemList (1 līdz InputRange.Cells.Count \ N) Katram c InputRange i = i + 1 Ja i Mod N = 0 Tad iCount = iCount + 1 Kļūda Atsākt nākamo ItemList (iCount) = c. Vērtība On Error GoTo 0 End If Next c INDEXN = ItemList If InputRange.Rows.Count> = InputRange.Columns.Count Then INDEXN = Application.WorksheetFunction.Transpose (INDEXN) End if Erase ItemList End Function
- Lai iegūtu katru n -to vienumu diapazonā B1: B10, formula ir
- {= INDEKSS ($ A $ 1: $ A $ 100, 10)}
Piezīme: šī ir masīva formula; tāpēc Ctrl + Shift + End taustiņi ir jānospiež kopā
- Lai saņemtu katru 7tūkst vērtība no diapazona A1: A100; mēs mainīsim pēdējo argumentu no 10 uz 7 un formula būs
- {= INDEKSS ($ A $ 1: $ A $ 100, 7)}
Tādā veidā mēs varam atgriezt katru n-to vienumu no vienas lapas uz galveno lapu.
- Citas lapas formulā būs atsauce uz lapu
- {= INDEKSS (1. lapa! $ A $ 1: $ A $ 100, 10)}
Secinājums: Izmantojot iepriekš minēto lietotāja definēto funkciju, mēs varam būt elastīgi, lai uzzinātu katru n-to vienumu no vienas lapas uz otru.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook. Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē