Excel - Hesaplamayı gerçekleştirmek ve verileri başka bir kağıda kaydetmek için bir makro

Konu

A sütunundaki müşterilere bir dizi hesap numaram var. Bu liste değişken boyuttadır.

Benim ihtiyacım:

Listeyi 40 sayılık sayfalara böldüm.
A sütununda 40 hesap alıyorum
Kopyalarım ve yeni bir kağıda yapıyorum 1.
40’ı takip ediyorum ve bunları 2. sayfaya yapıştırıyorum. Ve vb ... listenin sonuna kadar. Bana yardım eder misin, çünkü VBA kitapları şimdilik Çinliler için mi? Teşekkür ederim!

Çözüm

Nasıl olması gerektiğine bir örnek:

 Alt patlayan () Dim sh Çalışma Sayfası, numf Uzun, satır Uzun Set sh = ActiveSheet Application.ScreenUpdating = Yanlış numf = 1: = 1 Lig lig sh için = 1 To. [A65536]. End (xlUp) Worksheets.Add after: = Çalışma sayfaları (Worksheets.Count) ActiveSheet.Name = "Part" ve "ActiveSheet.Range (" A1: A40 ") = sh.Cells (lig, 1) numf. Yeniden boyutlandır (40, 1). Değer = lig lig + numf 39 + 1 = numf lig sh. Bir sonraki uygulamayı etkinleştirin.ScreenUpdating = True End Sub

Makroyu çalıştırmadan önce söz konusu sayfayı seçersiniz.