Та цөөн хэдэн багана бүхий жижиг өгөгдлийн хүснэгттэй бол бүгдийг нь хялбархан тоолж болно. Гэхдээ том өгөгдлийн хүснэгтийн хувьд бүх баганыг ямар ч алдаагүйгээр тоолоход хэцүү байдаг. Үүнээс гадна зарим багана нь өгөгдөл агуулж байхад зарим багана нь бүрэн хоосон байж болно. Тиймээс том өгөгдлийн хүснэгттэй тохиолдолд бүх баганыг өгөгдөлтэй тоолох нь нэлээд хэцүү байдаг. Энэ нийтлэлээс та Excel программ дээр VBA ашиглан өгөгдөлтэй багана тоолох 2 аргыг хялбархан сурах болно.

Дадлага хийх номыг татаж авах

Та Excel файлыг дараах линкээс татаж аваад дадлага хийх боломжтой. it.

Data.xlsm-тэй баганыг тоолох

2 Excel программ дээр VBA ашиглан өгөгдөлтэй баганыг тоолох арга

1 Энгийн VBA код ашиглан өгөгдөл бүхий ажлын хуудасны бүх баганыг тоолох

Бид дараах өгөгдлийн хүснэгтээс 3 баганыг харж болно. Одоо бид Excel-ийн нэг ажлын хуудсанд ашиглагдсан баганын тоог тодорхойлохын тулд VBA кодыг ашиглах болно.

❶ Юуны өмнө ALT + F11 товчийг дарна уу. VBA засварлагчийг нээх.

❷ Үүний дараа Insert > Модуль.

❸ Үүний дараа дараах VBA скриптийг хуулна.

6024

❹ Дараа нь VBA засварлагч руу буцаж очоод CTRL дарна уу. + V дарна уу.

❺ Одоо CTRL + S товчийг дарж VBA кодыг хадгална уу.

❻ VBA кодыг ажиллуулахын тулд Хөгжүүлэгч таб руу ороод Макро дээр товшино уу. Эсвэл F5 товчийг дарна уу түлхүүр.

Макро харилцах цонх гарч ирнэ.

❼ Та хийх ёстой зүйл бол Run товчийг дарахад л хангалттай.

Одоо та харилцах цонх гарч ирэхийг харах болно. Өгөгдөл бүхий баганын тоо 3 байна.

Дэлгэрэнгүй: Excel дээр баганын тоог хэрхэн тоолох вэ (3 хялбар). Арга)

2. Өгөгдсөн муж дахь бүх баганыг өгөгдлийн хамт Excel VBA код ашиглан тоолох

Дараах VBA код нь танд өгөгдлийн бүх баганыг тоолох боломжийг олгоно. өгөгдсөн муж.

Кодыг ашиглахын тулд

❶ Юуны өмнө ALT + F11 товчийг дарж VBA засварлагчийг нээнэ үү.

❷ Дараа нь очно уу. Оруулах > Шинэ модуль үүсгэхийн тулд модуль .

❸ Үүний дараа дараах VBA скриптийг хуулна уу.

5658

❹ VBA засварлагч руу буцаж очоод дарна уу. CTRL + V дарж буулгана уу.

❺ Одоо CTRL + S товчийг дарж кодыг хадгална уу.

❻ Хөгжүүлэгч таб руу очоод Макро -г дарж Макро цонхыг нээнэ үү.

Эсвэл зүгээр л дарна уу. F5 товчлуураар Макро харилцах цонхыг ашиглах боломжтой.

❼ Харилцах цонхноос CountColumnsInARange функцын нэрийг сонгоод Run <7 дээр дарна уу>товчлуур.

Эцэст нь нийт баганын тоо 3 гэсэн жижиг харилцах цонх гарч ирнэ.

Дэлгэрэнгүй: Excel дээр VLOOKUP хийх баганыг хэрхэн тоолох вэ (2 арга)

Excel-ийн баганыг тоолох бусад VBA кодууд

1. АшиглахХамгийн сүүлд ашигласан баганын дугаарыг буцаах VBA Range.End арга

Excel хүснэгтэд хамгийн сүүлд ашигласан баганын дугаарыг авахын тулд

❶ Юуны өмнө товчийг дарж VBA засварлагчийг нээнэ үү. ALT + F11.

❷ Дараа нь Insert > Шинэ модуль үүсгэхийн тулд модуль .

❸ Дараах VBA кодыг хуулна уу:

2997

❹ Дараахыг буулгаад хадгална уу. VBA засварлагчийн код.

❺ Дээрх кодыг ажиллуулахын тулд F5 товчлуурыг дарна уу.

Та сүүлийн баганыг авах болно. Доорх зурган дээрх шиг гарч ирэх харилцах цонхонд дугаарлана:

Дэлгэрэнгүй: Excel дээр утгыг хүрэх хүртэл баганыг хэрхэн тоолох вэ

2. Excel-д хамгийн сүүлд ашигласан баганын дугаарыг буцаахын тулд Range.Find аргыг ашиглаарай

Хэрэв та хамгийн сүүлд ашигласан баганын дугаарыг буцаах VBA код хайж байгаа бол доорх алхмуудыг дагана уу. :

❶ Юуны өмнө ALT + F11 дарж VBA засварлагчийг нээнэ үү.

❷ Үүний дараа Insert > Модуль.

❸ Дараах VBA кодыг хуулна уу:

1168

❹ Дараа нь VBA засварлагч руу буцаж очоод CTRL + V дарна уу. дарна уу.

❺ Одоо CTRL + S товчийг дарж VBA кодыг хадгална уу.

Одоо дарна уу. Дээрх кодыг ажиллуулахын тулд F5 товчийг дарна уу.

Та хамгийн сүүлд ашигласан баганын дугаарыг доорх зурган дээрх шиг гарч ирэх харилцах цонхонд авах болно:

Санах зүйл

• ALT + F11 дарж VBA засварлагчийг нээнэ үү.
• Та ALT + дарж болно. Макрос харилцах цонхыг ашиглахын тулд F8 .
• VBA кодыг ажиллуулахын тулд F5 товчийг дарна уу.

Дүгнэлт

Дүгнэж хэлэхэд бид Excel-ийн VBA ашиглан өгөгдөл бүхий баганыг тоолох 2 аргыг авч үзсэн. Энэ нийтлэлд хавсаргасан дадлага хийх номыг татаж аваад үүнтэй холбоотой бүх аргыг дадлага хийхийг зөвлөж байна. Мөн доорх коммент хэсэгт асуулт асуухаас бүү эргэлз. Бид холбогдох бүх асуултад аль болох хурдан хариу өгөхийг хичээх болно. Мөн манай ExcelWIKI вэб сайтад зочилж илүү ихийг судлаарай.