Excel VBA, meyarlara əsasən sətirləri başqa bir iş vərəqinə köçürmək üçün

  • Bunu Paylaş
Hugh West

Məlumatların öhdəsindən gəlmək , meyarlara əsaslanaraq bir vərəqdən digərinə Excel-də tez-tez görülən tapşırıqlardan biridir. Əgər çoxlu sətirləriniz varsa və onları bəzi meyarlara əsasən başqa vərəqə köçürmək istəyirsinizsə, bu, olduqca yorucu və vaxt aparan ola bilər. Lakin Microsoft Visual Basic Application (VBA) ilə siz müxtəlif meyarlar əsasında məlumatları bir vərəqdən digərinə asanlıqla köçürə biləcəyiniz makrolar yarada bilərsiniz. Bu məqalədə mən sizə göstərəcəyəm ki, Excel VBA -dan istifadə etməklə sətirləri 2 müxtəlif növ meyar əsasında başqa iş vərəqinə necə kopyalaya bilərsiniz.

Deyək ki, müxtəlif satıcıların satış və satış sahələrinin verildiyi “ Data ” adlı iş vərəqində aşağıdakı verilənlər toplusuna sahibsiniz. İndi bəzi kriteriyalara əsaslanan xüsusi cərgələri başqa vərəqdə köçürmək istəyirsiniz.

Təcrübə İş Kitabını endirin

Satırları Başqasına Kopyalayın Criteria.xlsm əsasında iş vərəqi

Excel VBA kriteriyalarına əsasən sətirləri başqa bir işçi vərəqə kopyalamağın 2 yolu

1. Mətn meyarlarına əsasən sətirləri başqa bir işçi vərəqə kopyalayın

Bu nümayişdə mən sizə mətn meyarlarına əsasən sətirləri bir iş vərəqindən digərinə necə köçürdüyünüzü göstərəcəyəm. Tutaq ki, siz Virciniya da satış edən satıcıların məlumatlarını Excel VBA istifadə edərək Sahə Satışları adlı iş vərəqinə köçürmək istəyirsiniz. Bunu etmək üçün əvvəlcə

ALT+F11 düymələrini basaraq VBA pəncərəsini açın.

VBA-da pəncərə,

Daxil et tabına klikləyin və Modul seçin.

O, Module(Kod) pəncərəsini açın. İndi,

➤ Aşağıdakı kodu Module(Kod) pəncərəsinə daxil edin,

5834

Kod, Kriteriya_Mətnini Kopyala adlı makro yaradacaq. Cari iş vərəqinin C sütununda Virciniya axtarın və Sahə Satışı (Cədvəl3) adlı iş vərəqində Virginia ehtiva edən sətirləri qaytarın.

Bundan sonra

VBA pəncərəsini bağlayın və ya minimuma endirin.

ALT+F8

düymələrini basın. O, Makro pəncərəsini açacaq.

Makronun adı xanasında Kriteriya_Mətnini Kopyala seçin və Çalışdır üzərinə klikləyin.

Nəticədə Virciniya ilə sətirlər Sahə Satışları

adlı iş vərəqinə kopyalanacaq.

Ətraflı oxuyun: Excel-də sətirləri avtomatik olaraq başqa bir vərəqə necə kopyalamaq olar (4 üsul)

2. Sayı meyarlarına əsasən sətirləri başqa bir iş vərəqinə kopyalayın

İndi , Mən sizə rəqəm meyarlarına əsasən bir iş vərəqindən digər iş vərəqinə sətirləri necə köçürə biləcəyinizi göstərəcəyəm. Tutaq ki, siz $100000-dən çox olan satış məlumatlarını Ən Yaxşı Satışlar adlı iş vərəqinə köçürmək istəyirsiniz. Bunu etmək üçün əvvəlcə

VBA pəncərəsini açmaq üçün ALT+F11 düymələrini basın.

VBA -də pəncərəsində,

Daxil et tabına klikləyin və Modulu seçin.

O, Modul (Kod) pəncərə. İndi,

➤ Aşağıdakı kodu Module(Kod) pəncərəsinə daxil edin,

2181

Kod, Kriteriya_Nömrəsini Kopyala adlı makro yaradacaq. Data adlı iş vərəqinin D sütununda 100000-dən böyük dəyərləri axtarın və Ən Yaxşı Satışlar adlı iş vərəqində 100000$-dan çox satış dəyəri olan sətirləri qaytarın ( Cədvəl4).

Bundan sonra

VBA pəncərəsini bağlayın və ya minimuma endirin.

ALT+F8

O, Makro pəncərəsini açacaq.

Makro adında Kriteriya_Nömrəsini Kopyala seçin. 2>qutusu və Çalışdır üzərinə klikləyin.

Nəticədə, 100000$-dan çox satış dəyəri olan sətirlər <4-ə kopyalanacaq>Ən çox satış iş vərəqi.

Ətraflı oxuyun: Makrodan istifadə edərək Excel-də birdən çox sətirləri necə kopyalamaq olar (4 Nümunə)

Nəticə

Bu məqalənin iki üsulu ilə siz Excel VBA-dan istifadə edərək müxtəlif kriteriyalar əsasında bir iş vərəqindən digər iş vərəqinə sətirləri köçürə biləcəksiniz. Mətn meyarları üçün birinci üsuldan, nömrə meyarları üçün ikinci üsuldan istifadə edə bilərsiniz. Metodlardan hər hansı biri ilə bağlı hər hansı bir çaşqınlığınız varsa, lütfən şərh yazmaqdan çekinmeyin.

Hugh West sənayedə 10 ildən çox təcrübəyə malik yüksək təcrübəli Excel təlimçisi və analitikidir. Mühasibat uçotu və maliyyə üzrə bakalavr dərəcəsi və Biznesin idarə edilməsi üzrə magistr dərəcəsinə malikdir. Hugh tədrisə həvəslidir və izləmək və başa düşmək asan olan unikal tədris yanaşması işləyib hazırlayıb. Onun Excel üzrə ekspert biliyi bütün dünyada minlərlə tələbə və mütəxəssisə öz bacarıqlarını təkmilləşdirməyə və karyeralarında üstün olmağa kömək etmişdir. Hugh öz bloqu vasitəsilə biliklərini dünya ilə bölüşür, fərdlərə və müəssisələrə öz potensiallarını tam şəkildə çatdırmaq üçün pulsuz Excel dərsləri və onlayn təlimlər təklif edir.