Excel - Makro pro kopírování řádků X kolikrát

Makra lze použít v kancelářském softwaru Excel pro kopírování řádků pro x početrát . Opakované úlohy, například kopírování dat z řádků, se stávají neproveditelné, pokud je počet záznamů v listu aplikace Excel příliš vysoký. I pro menší listy je vhodné použít makra pro úlohy, jako je například kopírování řádků pro počet X v pracovním listu. Makra provádějí úlohu automaticky s minimálním zásahem člověka, což snižuje pravděpodobnost chyb. Předem napsaná makra lze stáhnout z různých online zdrojů a změnit tak, aby splňovaly požadované úkoly. Některé znalosti programování mohou být vyžadovány.

Problém

Rád bych si vzal první řádek v tabulce, zkopíroval jsem jej "X", kolikrát jsem to udělal, pak si vezměte další řádek, zkopírujte ho stejným počtem "X", až do konce řádků.

Vzorek

 Výsledky ColA COLB ColC TextA TextA1 TextA2 TextB TextB1 TextB2 TextC TextC1 TextC2 (například 3 krát) ColA COLB ColC TextA TextA1 TextA2 TextA TextA1 TextA2 TextA TextA1 TextA2 TextB TextB1 TextB2 TextB TextB1 TextB2 TextB TextB1 TextB2 TextC TextC1 TextC2 TextC TextC1 TextC2 TextC TextC1 TextC2

Řešení

Toto je makro:

 Sub test () Dim rng jako rozsah, c jako rozsah Dim rng1 jako rozsah, c1 jako rozsah Dim dest as rozsah, j jako celé číslo, k jako celé číslo listu ("sheet2"). rng = Rozsah (.Range ("A2"), .Range ("A2"). Konec (xlDown)) j = WorksheetFunction.CountA (.Rows ("1: 1")) 'msgbox j Pro každou c in rng Set rng1 = Rozsah (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address Pro každý c1 In rng1 Nastavit dest = Listy ("sheet2"). Buňky (Rows.Count, "a"). Konec (xlUp) .Offset (1, 0) 'msgbox dest.Address Pokud c1 = "" Pak GoTo line1 dest.Offset (0, 0) = c dest.Offset (0, 1) = .Cells (1, c1.Column) 'dest.Offset (0, 2) = c1 line1: Další c1 Další c Konec S Koncem Sub

Další metoda - kontingenční tabulka databáze.-

ref: wlakenbach blog

//spreadsheetpage.com / ...