Excel - makro za izračun in shranjevanje podatkov na drugem listu

Težava

V stolpcu A imam kupce številk računov. Ta seznam je spremenljive velikosti.

Moja potreba je:

• Seznam sem razdelil na 40 strani.
• V stolpcu A vzamem 40 računov
• Kopiram in se držim novega lista 1.
• Jaz sledim 40 in jih prilepim v list 2. In itd ... do zadnjega seznama. Bi mi lahko pomagali, ker so VBA knjige za mene kitajske? Hvala vam!

Rešitev

Primer, kako naj bo:

 Sub exploding () Dim sh Kot delovni list, numf Kot dolg, vrstica As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Za lig lig sh = 1 To. [A65536]. End (xlUp) Worksheets.Add after: = Delovni listi (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Spremeni velikost (40, 1). Vrednost = lig lig + numf 39 + 1 = numf lig sh.Activate Next Application.ScreenUpdating = Podokno 

Zadevni list izberete, preden zaženete makro.

• Če ima določeno ime, nadomestite:
• Nastavite sh = ActiveSheet
  • avtor:
• Nastavi sh = Delovne liste ("ime_obdelave_sl.)