Hogyan oszthatjuk meg az oszlopban a cellák értékének alapján létrehozott sorokat?
Például rendelkezem egy sor adattal, amely tartalmazza a D oszlopban lévő számok listáját, és most a D oszlopban lévő numerikus értékek alapján többször is meg szeretnék duplázni a teljes sorokat a következő eredmény eléréséhez. Hogyan másolhatom többször a sorokat az Excel cella értékei alapján?
Másoljon sorokat többször a VBA kóddal rendelkező cellák értékei alapján
Ajánlott termelékenységi eszközök az Excel / Office számára
Office Tab: Húzza a füles szerkesztést az Excel és más Office szoftverekhez, csakúgy, mint a Chrome, a Firefox és a Safari.30 napos korlátlan ingyenes próbaverzió
Kutools for Excel: Az 300 erőteljes funkciói az Excel-t nagyon könnyűvé teszik, és azonnal növelik a termelékenységet.60 napos korlátlan ingyenes próbaverzió
Másoljon sorokat többször a VBA kóddal rendelkező cellák értékei alapján
A teljes sorok többszörözésére és másolására a cellaértékek alapján a következő VBA-kód segíthet, kérjük, tegye meg ezt:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: többszörös sorok többszöröse a cellaérték alapján:
Sub CopyData() 'Updateby Extendoffice 20160922 Dim xRow As Long Dim VInSertNum As Variant xRow = 1 Application.ScreenUpdating = False Do While (Cells(xRow, "A") <> "") VInSertNum = Cells(xRow, "D") If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select Selection.Insert Shift:=xlDown xRow = xRow + VInSertNum - 1 End If xRow = xRow + 1 Loop Application.ScreenUpdating = False End Sub
3. Ezután nyomja meg a gombot F5 kulcsot a kód futtatásához, akkor a teljes sorokat többször megismételjük a D oszlopban levő cellaérték alapján, amire szükségünk van.
Megjegyzések: A fenti kódban a levél A jelzi az adatsor kezdő oszlopát és a betűt D az az oszloplevél, amelyre a sorokat szeretné megismételni. Kérjük, változtassa meg őket az Ön igényeire.
Ajánlott termelékenységi eszközök
Office Tab
Kényelmes lapokat hozhat Excel és más Office szoftverekhez, akárcsak a Chrome, a Firefox és az új Internet Explorer.
Kutools for Excel
Elképesztő! Növelje termelékenységét 5 perc alatt. Nincs szükség különleges képességekre, kivéve két órát minden nap!
300 Az Excel új funkciói, az Excel nagyon egyszerű és erőteljes:
- A cella / sorok / oszlopok egyesítése adatok elvesztése nélkül.
- Több lap és munkafüzet kombinálása és egységesítése.
- Hasonlítsa össze a tartományokat, másolja a többszörös tartományokat, konvertálja a dátumot, a mértékegységet és a pénznemek konverzióját.
- Számolás a Színek, a Paging Subtotals, az Advanced Sort és a Super Filter,
- Több Select / Insert / Delete / Szöveg / Formátum / Link / Comment / Workbooks / Worksheets Tools ...