Եթե փնտրում եք Excel VBA -ի միջոցով սյունակում տվյալների հետ տողերը հաշվելու ամենահեշտ ուղիներից մի քանիսը, ապա դուք ճիշտ տեղում եք: Այսպիսով, եկեք սկսենք մեր հիմնական հոդվածից՝ ավելին իմանալու համար սյունակում տվյալների հետ տողերը հեշտությամբ հաշվելու մասին:

Ներբեռնեք Աշխատանքային գիրքը

Excel VBA-ի միջոցով սյունակում տողերը հաշվելու 9 եղանակներ

Այստեղ մենք ունենք ընկերության վաճառքի գրառումները պարունակող հետևյալ տվյալների բազան: Մենք կօգտագործենք տարբեր սյունակներ այս տվյալների բազայի տվյալների հետ՝ բացատրելու համար սյունակի տվյալների հիման վրա տողերը հաշվելու տարբեր եղանակներ:

Մենք օգտագործել ենք Microsoft Excel 365 տարբերակն այստեղ, կարող եք օգտագործել ցանկացած այլ տարբերակ՝ ըստ ձեր հարմարության:

Մեթոդ-1. Օգտագործելով VBA Rows.Count հատկությունը՝ Excel-ում սյունակի տվյալների հետ տողերը հաշվելու համար

Ահա, մենք հաշվելու է Sales սյունակի տողերը՝ ապրանքների վաճառքի արժեքներով՝ օգտագործելով Տողերը: Հաշվեք հատկությունը VBA -ից:

Քայլ-01 :

➤ Անցեք Կարգավորող Tab >> Visual Basic Ընտրանք:

Այնուհետև կբացվի Visual Basic խմբագրիչը .

➤ Գնացեք Տեղադրեք Տաբ >> Մոդուլ Ընտրանք:

Այնուհետև Մոդուլ կստեղծվի:

Քայլ-02 :

➤ Գրեք հետևյալ կոդը

2034

Այստեղ մենք հայտարարեցինք X որպես Ամբողջական , «D4:D11» ը տիրույթն է՝ հիմնվածոր սյունակում ենք հաշվում տողերը և վերջապես մենք տողի համարը հատկացրել ենք X -ին։

Հաղորդագրության տուփը ( MsgBox ) մեզ կտա արդյունքը որպես ընդհանուր թիվ։ տողերից:

➤ Սեղմեք F5 :

Այնուհետև դուք կստանաք տողերի ընդհանուր թիվը տվյալների հետ որպես 8 Sales սյունակից հաղորդագրության վանդակում:

Կարդալ ավելին` Excel VBA  Տվյալներով տողերը հաշվելու համար (4 օրինակ)

Մեթոդ-2. Օգտագործելով End Property-ը` սյունակում տվյալների հետ տողերը հաշվելու համար

Այս բաժնում մենք կօգտագործենք Վերջացնել հատկությունը VBA Sales սյունակի վաճառքի արժեքներով տողերը հաշվելու համար:

Քայլեր :

➤ Հետևեք Քայլ-01 Մեթոդ-1-ից :

➤ Գրեք հետևյալ կոդը

7113

Այստեղ մենք հայտարարեցինք X որպես Ամբողջ թիվ , «D4» միջակայքի մեկնարկային արժեքն է, որի հիման վրա սյունակում մենք հաշվում ենք տողերը: և վերջապես մենք տողի համարը վերագրեցինք X -ին: X մեզ կտա վերջին օգտագործված տողի համարը, ոչ թե այս սյունակի ընդհանուր օգտագործված տողերը: Այսպիսով, տողի ընդհանուր թիվը ստանալու համար մենք հանել ենք 3 ( Սկսած տող-1 = 4-1 = 3 ) X -ից:

Հաղորդագրության տուփ ( MsgBox ) կհայտնվի տողերի ընդհանուր քանակով:

➤ Սեղմեք F5 :

Դրանից հետո դուք կունենաք 8 որպես Sales սյունակի տողերի ընդհանուր թիվը հաղորդագրության վանդակում:

Կարդալ ավելին. Ինչպես հաշվելExcel-ում տվյալների հետ տողեր (4 բանաձև)

Մեթոդ-3. Օգտագործելով տողերի համակցությունը: Count հատկությունը և վերջի հատկությունը

Այստեղ մենք կօգտագործենք երկու հատկությունների համակցությունը VBA ինչպես Տողերը: Count հատկությունը և End հատկությունը միասին Sales սյունակի ընդհանուր տողերը հաշվելու համար:

Քայլեր :

➤ Հետևեք Քայլ-01 Մեթոդ-1-ից :

➤ Գրեք հետևյալ կոդը

5319

Այստեղ մենք հայտարարագրել ենք X որպես Ամբողջ թիվ , 4 -ում (Տողեր, հաշվառում, 4) նախատեսված է Վաճառքի համար: սյունակը, որի հիման վրա մենք հաշվում ենք տողերը, և վերջապես տողի համարը վերագրեցինք X :

X վերջին օգտագործված տողը կվերադարձնի համարը, ոչ թե այս սյունակի ընդհանուր օգտագործված տողերը: Այսպիսով, տողի ընդհանուր թիվը ստանալու համար մենք հանել ենք 3 ( Սկսած տող-1 = 4-1 = 3 ) X -ից:

Հաղորդագրության տուփ ( MsgBox ) կհայտնվի տողերի ընդհանուր քանակով:

➤ Սեղմեք F5 :

Այնուհետև մենք կստանանք 8 որպես Վաճառք սյունակի տողերի ընդհանուր թիվը հաղորդագրության վանդակում:

Առնչվող բովանդակություն. Ինչպես Excel-ում հաշվել տողերը բազմաթիվ չափանիշներով (6 մեթոդ)

Մեթոդ-4. Օգտագործելով VBA ընտրության հատկությունը Excel-ում սյունակի տվյալների հետ տողերը հաշվելու համար

Դուք կարող եք օգտագործել Ընտրության հատկությունը նաև Վաճառքի տվյալների հիման վրա տողերի ընդհանուր թիվը հաշվելու համար: սյունակ:

Քայլեր :

➤ Հետևեք Քայլ-01 մեթոդից -1 .

➤ Գրեք հետևյալ կոդը

4964

Այստեղ մենք հայտարարեցինք X որպես Ամբողջական , ընտրվածի տողերը: միջակայքը կհաշվվի այստեղ, և վերջապես, մենք տողի համարը վերագրեցինք X :

Հաղորդագրության տուփը ( MsgBox ) մեզ կտա արդյունքը որպես ընդհանուր տողերի քանակը:

Այնուհետև մենք պետք է վերադառնանք հիմնական թերթիկ:

➤ Ընտրեք Sales սյունակի տիրույթը: , ապա անցեք Developer Tab >> Macros Option:

Դրանից հետո Մակրո երկխոսության տուփը կբացվի:

➤ Ընտրեք Մակրո անունը countrows4 , ապա սեղմեք Գործարկել տարբերակ:

Վերջապես մենք կստանանք հետևյալ հաղորդագրության տուփը, որտեղ ասվում է «Օգտագործված տողերի թիվը 8 է» :

Կարդալ ավելին. Ինչպես հաշվել տողերը VBA-ով Excel-ում (5 մոտեցում)

Մեթոդ-5. Հաշվել տողերը տվյալների հետ սյունակում՝ օգտագործելով FIND ֆունկցիան

Այստեղ մենք կօգտագործենք FIND ֆունկցիա ՝ Տարածաշրջան սյունակում տեքստային տողերով տողերը հաշվելու համար:

Քայլեր :

➤ Հետևեք Քայլ-01 Մեթոդ-1 -ից:

➤ Գրեք հետևյալ կոդը

8716

Այստեղ մենք հայտարարել ենք. X որպես ամբողջ թիվ , rng որպես միջակայք , «C4:C11» միջակայքն է՝ հիմնված որ սյունակում ենք հաշվում տողերը և վերջապես այն հատկացրել ենք rng ։

Մենք օգտագործել ենք WITH հայտարարությունը, որպեսզի խուսափենք օբյեկտի անվանման կրկնությունից, ինչպիսին է rng ։

Օգտագործելով FIND ֆունկցիան , X մեզ կտա վերջին օգտագործված տողի համարը, ոչ թե այս սյունակի ընդհանուր օգտագործված տողերը: Այսպիսով, տողի ընդհանուր թիվը ստանալու համար մենք հանել ենք 3 ( Սկսած տող-1 = 4-1 = 3 ) X -ից:

Հաղորդագրության տուփ ( MsgBox ) կհայտնվի տողերի ընդհանուր քանակով:

➤ Սեղմեք F5 :

Վերջապես, դուք կունենաք 8 որպես Sales սյունակի տողերի ընդհանուր թիվը հաղորդագրության վանդակում:

Համապատասխան բովանդակություն. Excel-ի հաշվում տեսանելի տողեր (բանաձև և VBA կոդ)

Նման ընթերցումներ.

• Հաշվել տողեր Excel-ում առանցքային աղյուսակով խմբում (Քայլ առ քայլ ուղեցույց)
• Excel VBA. Հաշվել տողերը թերթում (5 օրինակ)

Մեթոդ-6. Հաշվել ոչ դատարկ տողեր սյունակում տվյալների հետ՝ օգտագործելով VBA

Այստեղ մենք ունենք որոշ դատարկ բջիջներ Sales սյունակում (մենք հանել ենք որոշ արժեքներ այս մեթոդի համար) և օգտագործելով VBA կոդը, մենք կհաշվենք միայն արժեքներով տողերի ընդհանուր թիվը:

Քայլեր :

➤ Հետևեք Քայլ-01 Մեթոդ-1 -ից:

➤ Գրեք հետևյալ կոդը

8813

Այստեղ մենք հայտարարել ենք X որպես Երկար , Y և rng որպես Տարածք , «D4:D11» այն միջակայքն է, որի հիման վրա սյունակի վրա ենք հաշվում տողերը և վերջապես ունենքայն վերագրել է rng -ին:

FOR հանգույցը կստուգի, արդյոք այս տիրույթի բջիջներից յուրաքանչյուրը պարունակում է որևէ արժեք` օգտագործելով COUNTA ֆունկցիան և արժեքներ ունեցող բջիջների համար X ամեն անգամ կավելացվի 1 -ով:

Վերջապես, մենք հաղորդագրության միջոցով կստանանք ոչ դատարկ բջիջներով տողերի ընդհանուր թվերը: տուփ։

➤ Սեղմեք F5 ։

Ի վերջո, դուք կունենաք 5 որպես ընդհանուր թիվը։ Sales սյունակի ոչ դատարկ տողերը հաղորդագրության վանդակում:

Կարդալ ավելին. Ինչպես հաշվել զտված տողերը Excel-ում VBA-ով ( Քայլ առ քայլ ուղեցույց)

Մեթոդ-7. Հաշվել տողերը հատուկ արժեքով

Այստեղ մենք կհաշվենք վաճառքի արժեքով տողերի ընդհանուր թիվը: $2,522,00 Sales սյունակից:

Քայլեր :

➤ Հետևեք Քայլին -01 Մեթոդ-1-ից :

➤ Գրեք հետևյալ կոդը

4781

Այստեղ մենք հայտարարեցինք X որպես Long , Y և rng որպես Range , «D4:D11» այն տիրույթն է, որի հիման վրա սյունակում մենք հաշվում ենք տողերը և վերջապես այն վերագրում ենք rng :

FOR հանգույցը կստուգի, արդյոք այս տիրույթի բջիջներից որևէ մեկը պարունակում է վաճառքի արժեքը <: 1>2522 օգտագործելով COUNTIF ֆունկցիան և այս արժեք ունեցող բջիջների համար X ամեն անգամ կավելացվի 1 :

Վերջապես, մենք հաղորդագրության միջոցով կստանանք 2522 արժեքով տողերի ընդհանուր թվերը:վանդակում:

➤ Սեղմեք F5 :

Վերջիվերջո, դուք կունենաք 3 որպես ընդհանուր թվային տող Sales սյունակի, որը պարունակում է $2,522,00 վաճառքի արժեքը հաղորդագրության վանդակում:

Կարդալ ավելին. Excel VBA. Հաշվել տողերը կոնկրետ տվյալներով (8 օրինակ)

Մեթոդ-8. Հաշվել կոնկրետ արժեքից մեծ արժեք ունեցող տողեր

Այս բաժնում մենք կ հաշվել Վաճառք սյունակում $3000.00 ը մեծ արժեք ունեցող տողերի ընդհանուր թիվը։

Քայլեր :

➤ Հետևեք Քայլ-01 Մեթոդ-1-ից :

➤ Գրեք հետևյալ կոդը

4751

Այստեղ մենք հայտարարագրել ենք X որպես Երկար , Y , և rng որպես Շրջանակ , «D4:D11» այն տիրույթն է, որի հիման վրա սյունակը հաշվում ենք տողերը և վերջապես այն վերագրում ենք rng :

FOR loop-ը կստուգի, արդյոք այս տիրույթի բջիջներից որևէ մեկը պարունակում է ավելի մեծ վաճառքի արժեք, քան 3000 ՝ օգտագործելով COUNTIF ֆունկցիան (կամ կարող եք փորձել որևէ այլ պայմաններ, ինչպիսիք են՝ փոքր, մեծ կամ հավասար և այլն) և այս արժեք ունեցող բջիջների համար X ամեն անգամ կավելացվի 1 ։

Վերջապես, մենք կստանանք տողերի ընդհանուր թվերը 3000 -ից մեծ արժեքներով հաղորդագրության տուփի միջոցով:

➤ Սեղմեք F5 :

Այնուհետև դուք կունենաք 3 որպես Վաճառք սյունակի ընդհանուր թվային տողեր, որոնք պարունակում են վաճառքները $3,000.00 ավելի մեծ արժեքներ հաղորդագրության վանդակում:

Կարդալ ավելին. Ինչպես է Excel-ը հաշվում տողերը արժեքով (8 Ճանապարհներ)

Մեթոդ-9. Հաշվեք տողեր հատուկ տեքստային տողով

Մենք այստեղ կստանանք խնձոր պարունակող տողերի քանակը։ ճշգրիտ կամ մասամբ Ապրանք սյունակում:

Քայլեր :

➤ Հետևեք Քայլ- 01 Մեթոդ-1-ից :

➤ Գրեք հետևյալ կոդը

7484

Այստեղ մենք հայտարարեցինք X որպես Երկար , Y և rng որպես Տարածք , «B4:B11» այն տիրույթն է, որի հիման վրա սյունակում մենք հաշվում են տողերը և վերջապես մենք այն վերագրեցինք rng :

FOR հանգույցը կստուգի, արդյոք այս տիրույթի բջիջներից որևէ մեկը պարունակում է տեքստային տող : «կիրառել» օգտագործելով COUNTIF ֆունկցիան (այստեղ այն հաշվարկվելու է ինչպես ճշգրիտ համընկնումների, այնպես էլ մասնակի համընկնումների համար՝ օգտագործելով Աստղանիշ նշանը տողից առաջ և հետո), և Այս արժեք ունեցող բջիջների համար X կմեծանա 1 յուրաքանչյուր ժամանակով e.

Վերջապես, մենք կստանանք տեքստային տողով apple ընդհանուր տողերի համարները հաղորդագրության տուփի միջոցով:

➤ Սեղմեք F5 :

Այնուհետև դուք կունենաք 2 որպես Ապրանք սյունակի ընդհանուր թվային տողեր, որոնք պարունակում են տեքստային տողեր: Apple և Pineapple հաղորդագրությունների վանդակում:

Կարդալ ավելին. Ինչպես հաշվել տողերը տեքստով Excel-ում (Ամենահեշտ8 եղանակ)

Պրակտիկա Բաժին

Ինքներդ պրակտիկա կատարելու համար մենք տրամադրել ենք Պրակտիկա բաժինը, ինչպես ստորև բերված թերթիկի մեջ Պրակտիկա . Խնդրում ենք դա անել ինքներդ:

Եզրակացություն

Այս հոդվածում մենք փորձեցինք բացահայտել սյունակում տվյալների հետ տողերը հաշվելու եղանակները Excel-ի միջոցով VBA հեշտությամբ: Հուսով եմ, որ այն օգտակար կգտնեք: Եթե ​​ունեք առաջարկներ կամ հարցեր, կարող եք կիսվել դրանք մեկնաբանությունների բաժնում: