Hogyan lehet duplikálni a sorokat az oszlop cellaértéke alapján?
Például van egy olyan adattartományom, amely a D oszlopban található számok listáját tartalmazza, és most a D oszlopban szereplő numerikus értékek alapján szeretném a teljes sorokat többször másolni, hogy a következő eredményt kapjam. Hogyan másolhatom többször a sorokat az Excel cellája alapján?
A VBA kóddal rendelkező cellák értékei alapján többször másoljon sorokat
A VBA kóddal rendelkező cellák értékei alapján többször másoljon sorokat
A teljes sorok többszörös másolásához és másolásához a cellaértékek alapján a következő VBA-kód segíthet, kérjük, tegye a következőket:
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: Sorok duplikálása a cella értéke alapján:
Sub CopyData()
'Updateby Extendoffice
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, a teljes sorokat többször is lemásoltuk a D oszlop cellaértéke alapján, amire szükséged volt.
Másoljon és szúrjon be sorokat meghatározott számú alkalommal egy praktikus eszközzel - Kutools for Excel
Ha nem ismeri a VBA-kódot, és nem tudja egyedül megváltoztatni a kód paramétereit. Ebben az esetben a Kutools az Excel számára's Sorok/oszlopok megkettőzése a cellaérték alapján A funkció segítségével többször is másolhat és szúrhat be sorokat a cellaértékek alapján, mindössze három kattintással.
- Kattints Kutools > betétlap > Sorok/oszlopok megkettőzése a cellaérték alapján a funkció engedélyezéséhez;
- Ezután válassza ki Sorok másolása és beszúrása opciót, és adja meg a celláit Tartomány beillesztése és a Ismételje meg az időket külön a párbeszédablakban.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!