İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də bir neçə cədvəl arasında eyni hüceyrələrdən bir siyahısını necə yaratmaq olar?

Hər aylıq satış masasını ayrı bir iş yerində ekran sərgisində göstərildikdə və bütün satış masalar eyni yerləşdirmə şəklində yerləşdirməyi düşünürük. İndi bir çox iş səhifəsində bütün cəmi dəyərlərdən (Cell E6) bir siyahı yaratmaq istəyirik. Bunu necə etmək olar? Və hər bir iş səhifəsinin məcmu dəyərlərindən bir dinamik siyahı yaratmaq nədir? Sizin üçün iki yol var:

doc 1 bir neçə cədvəl yaratmaq

VBA ilə birdən çox təbəqə arasında eyni hüceyrələrdən bir siyahısını yaradın

Excel üçün Kutools ilə birdən çox səhifəyə eyni hüceyrələrdən dinamik bir siyahı yaradın

Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına asanlıqla birləşdirin

Müxtəlif iş dəftərlərindən bir çox təbəqəni bir təbəqəyə birləşdirmək çətin ola bilər. Lakin Excel üçün Kutools ilə Birləşdirin (iş və iş dəftəri) kommunal, bunu bir neçə klik ilə əldə edə bilərsiniz! Tam xüsusiyyətli 60-sınaq sınaq!

reklam birləşmələri 1 kitablarını birləşdirir


Aşağıdakı VBA koduyla, birdən çox iş səhifəsində asanlıqla göstərilən hüceyrələrdən bir siyahısını yarada bilərsiniz. Siz aşağıdakıları edə bilərsiniz:

Adım 1: Listenizi yaratdığınız göstərilən hüceyrəni seçin. Bizim halda, Cell E6 seçin.

2 addımı: Basın Dayandırmaq + F11 düymələri eyni vaxtda Microsoft Visual Basic for Applications penceresini açmaq üçün basın Taxmaq > Modulessonra modul penceresine aşağıdakı kodu yapışdırın.

VBA: Birdən çox təbəqə arasında eyni hüceyrələrdən bir siyahısını yaradın

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

3 addımı: Basın F5 düyməsini basın və ya basın qaçış bu VBA'yı çalıştırmak üçün düyməsini basın.

Sonra bütün iş yerlərində göstərilən hüceyrədən gələn bütün dəyərlər KutoolsforExcel adlı yeni bir işə kopyalanır. Ekrana baxın:

doc 2 bir neçə cədvəl yaratmaq

Bu VBA siyahı yeni bir işə dolduracaq və siyahıda olan dəyərlər orijinal dəyərlərlə dəyişməyəcək statikdir.

Lakin, bəzən siyahıları müəyyən aralığa doldurmaq isteyebilirsiniz və siyahı dəyərlərini hər zaman göstərilən hüceyrələrdəki orijinal dəyərlər ilə həmişə yazışma tələb edir. Bu ehtiyacları qarşılamaq üçün aşağıdakı metoddan istifadə etməlisiniz.


Bu üsulla tanış olacağıq Excel üçün Kutools'S İşlərə Sıxlıqla baxın Çox iş səhifələrində eyni hüceyrələrdən dinamik bir siyahı yaratmaq üçün proqram.

Excel üçün Kutools - Microsoft Excel üçün 300 Ətraflı funksiyaları və Alətlərdən daha çox birləşir

Addım 1: Dinamik siyahıların yerləşdiriləcəyi Aralığı seçin və basın Kutools > daha > İşlərə Sıxlıqla baxın.

doc dinamik olaraq 1 sheets baxın

Addım 2: Açılış Doldurma İşləri Başvuruları informasiya qutusunda,

doc 5 bir neçə cədvəl yaratmaq

(1) basın Sifarişi doldurun qutusu seçin və açılan siyahıdan bir doldurma növü seçin. Bizim vəziyyətimizdə biz seçirik Hücredən sonra Şaquli hücumu doldurun;

In (2) Doldurmaq üçün formula qutusundan dinamik siyahı yaratdığınız hüceyrənin ünvanını daxil edin və sonra basın Bağlamaq düyməsini formulu kilidləmək.

(3) basın Aralığı doldurun düyməsini basın.

İndi göstərilir ki, göstərilən hüceyrələrdə göstərilən bütün işlərdə, göstərilən ekran ardıcıllığına aşağıdakı şəkillərlə doldurulur:

Orijinal dəyərlər dəyişdirildikdə, bu göstərilən siyahıda müvafiq dəyərlər avtomatik olaraq dəyişdiriləcəkdir.

Excel üçün Kutools - 300-dən çox lazımlı Excel alətləri daxildir. Tam xüsusiyyət pulsuz sınaq 60-gün, kredit kartı lazım deyil! Ele indicə onu al!


Bu videoda Kutools nişanı və Kutools Plus nişanı əlavə olunur Excel üçün Kutools. Lazım olsa, klikləyin burada məhdudiyyətsiz bir 60 günlük pulsuz sınaq üçün!




Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Mayo · 8 months ago
    Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input...
    One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing