Jos mietit, kuinka joku voi löytää jokaisen n: nnen kohdan sarakkeesta. Tässä artikkelissa opimme palauttamaan jokaisen n: nnen kohdan luettelosta. Käytämme VBA -koodia tuloksen löytämiseen.
Kysymys: Haluan, että makrokoodi poimii jokaisen n: nnen arvon sarakkeesta. Yritän vetää arvoja yhdestä taulukosta / sarakkeesta toiseen arkkiin / sarakkeeseen. Yritin käyttää monia toimintoja, kuten OFFSET, mutta en pystynyt selvittämään kaavaa, joka voi antaa tuloksen.
Otetaan esimerkki 100 arvosta sarakkeessa A ja haluamme selvittää joka kymmenesth arvo sarakkeessa B
Näytearvot, jotka alkavat solusta A1 yhtä kuin 1 soluun A100, ovat 100; Seuraavassa on tilannevedos sarakkeen A tiedoista:
Tuloksen saamiseksi meidän on noudatettava alla olevia vaiheita VB -editorin käynnistämiseksi
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Kopioi alla oleva koodi vakiomoduuliin
Funktio INDEXN (InputRange as Range, N as Integer) Varianttina 'palauttaa jokaisen N: nnen kohdan InputRange' --- Kommentti 'Valitse haluttu kohdealue toiminnolle ja' --- Comment 'kirjoita matriisifunktiona näppäimellä Ctrl +Vaihto+Enter. '' --- Kommentti Dim ItemList () Varianttina, c As Range, i Long, iCount As Long i = 0 iCount = 0 ReDim ItemList (1 InputRange.Cells.Count \ N) kullekin c In InputRange i = i + 1 Jos i Mod N = 0 Sitten iCount = iCount + 1 Virhe Jatka Seuraava kohdeluettelo (iCount) = c.Arvo päällä Virhe 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
- Jos haluat saada alueen B1: B10 jokaisen n: nnen kohdan, kaava on
- {= INDEXN ($ A $ 1: $ A $ 100, 10)}
Huomaa: tämä on taulukkokaava; siksi Ctrl + Shift + End -näppäimiä on painettava yhdessä
- Saada joka 7th arvo alueelta A1: A100; muutamme viimeisen argumentin 10: stä 7: ksi ja kaava on
- {= INDEXN ($ A $ 1: $ A $ 100, 7)}
Tällä tavalla voimme palauttaa jokaisen n: nnen kohteen yhdeltä arkilta pääarkille.
- Muun taulukon kaava sisältää taulukon viittauksen
- {= INDEXN (taulukko1! $ A $ 1: $ A $ 100, 10)}
Johtopäätös: Yllä olevan käyttäjän määrittämän toiminnon avulla voimme joustavasti selvittää jokaisen n: nnen kohteen arkista toiseen.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa. Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse