Excel - makro, lai veiktu aprēķinus un saglabātu datus citā lapā

Izdevums

A slejā man ir virkne kontu numuru. Šis saraksts ir mainīgs.

Man ir nepieciešams:

• Esmu sadalījis sarakstu 40 lappušu lapās.
• A slejā es ņemu 40 kontus
• Es kopēju un pievienoju jaunu lapu 1.
• Es sekoju 40, un es ielīmu tos lapā 2. Un utt. Līdz pēdējam sarakstam. Vai jūs varētu man palīdzēt, jo VBA grāmatas tagad ir ķīniešu man? Paldies!

Risinājums

Piemērs tam, kā tam vajadzētu būt:

 Sub sprādziens () Dim sh Kā darblapa, numf As Long, rinda kā Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Lig lig sh = 1 To. [A65536]. Beigas (xlUp) darblapas.Pievienot pēc: = darblapas (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Mainīt izmērus (40, 1). Vērtība = lig lig + numf 39 + 1 = numf lig sh.Activate Next Application.ScreenUpdating = True End Sub 

Pirms makro palaišanas izvēlaties attiecīgo lapu.

• Ja viņam ir noteikts nosaukums, nomainiet:
• Iestatiet sh = ActiveSheet
  • pēc:
• Iestatīt sh = darblapas ("name_ofthe_sheet")