Note: The other languages of the website are Google-translated. Back to English

Hogyan illesszünk be automatikusan sort az Excel cellasejtje alapján?

doc-insert-row-based-on-value-1
Tegyük fel, hogy van egy adattartománya, és üres sorokat szeretne automatikusan beilleszteni egy bizonyos érték fölé vagy alá az Excelben, például automatikusan beilleszteni a nulla érték alatti sorokat, ahogy a képernyőképen látható. Az Excel programban nincs közvetlen megoldás a feladat megoldására, de bevezetek egy makrókódot, amellyel automatikusan beilleszthet sorokat az Excel bizonyos értéke alapján.
Helyezze be az alábbi sort a cella értéke alapján a VBA segítségével

Helyezze be a fenti sort a cellaérték alapján a Kutools for Excel alkalmazással jó ötlet3

A VBA futtatásával a cellaérték alapján történő sor beszúrásához tegye a következőket:

1. nyomja meg Alt + F11 gombok egyszerre, és a Microsoft Visual Basic for Applications kiugrik az ablak.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a felbukkanáshoz Modulok ablak.

VBA: Helyezzen be egy sort a cellaérték alapján.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. kettyenés F5 vagy a futás gombra, megjelenik egy párbeszédpanel, és válassza ki az oszlopot, amely nullát tartalmaz. Lásd a képernyőképet:
doc-insert-row-based-on-value-2

4. kettyenés OK. Ezután üres sorok kerülnek be nulla érték alá.
doc-insert-row-based-on-value-3

típus:

1. Ha más érték alapján szeretne beilleszteni sorokat, módosíthatja 0 a VBA által kívánt értékre: Ha Rng.Value = "0" Akkor.

2. Ha nulla vagy más érték fölé szeretne beilleszteni sorokat, használhatja az alábbi vba kódot.

VBA: Sor beillesztése nulla érték fölé:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Ha nem ismeri a VBA-t, megpróbálhatja Kutools az Excel számára's Válassza a Specifikus cellák lehetőséget segédprogramot, majd szúrja be a sorokat fent.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye az alábbiak szerint:(Ingyenes letöltés Kutools for Excel most!)

1. Válassza ki azt a listát, amelyből meg szeretné találni az adott cellákat, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:
doc beszúrja a sort a 9. érték alapján

2. A felbukkanó párbeszédpanelen ellenőrizze Teljes sor opciót, majd lépjen a kiválasztáshoz Egyenlő ból ből Konkrét típus listát, majd írja be a megfelelő szövegmezőbe a keresni kívánt értéket. Lásd a képernyőképet:
doc beszúrja a sort a 6. érték alapján

3. kettyenés Ok, és megjelenik egy párbeszédpanel, amely emlékeztet a kiválasztott sorok számára, csak zárja be.

4. Helyezze a kurzort egy kiválasztott sorhoz, és kattintson a jobb gombbal a kiválasztáshoz betétlap a helyi menüből. Lásd a képernyőképet:
doc beszúrja a sort a 7. érték alapján

Most a sorok beillesztésre kerülnek egy adott érték alapján.
doc beszúrja a sort a 8. érték alapján


Relatív cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (43)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Konkrét tartalmat szeretnék beilleszteni az alábbi cellába. Hogyan kell csinálni? Az Üres sor helyett néhány oszlopba szeretnék értéket beszúrni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Több sort szeretnék beszúrni az érték alapján Pl.: 1 üres sort szeretnék beszúrni a 2-es értékű cella alá, 2 sort a 3-as értékű cella alá, 3 sort a 4-es értékű cella alá, és így tovább. kérlek segíts ebben?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kaptál erre valaha választ? Én is ugyanezt próbálom csinálni.

Készítsen egy listát azokról az alkalmazottakról, akiknél # hét szabadságot kapnak. Minden héthez szeretnék beszúrni egy sort. Ez 1, 2 vagy 3 sor lesz, attól függően, hogy mennyi időt kerestek. a #s 1 2 3 már a táblázatomban van.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sorokat szeretnék beszúrni egy szám alapján, cellaértéket használva az egyik táblázatban, és sorokat beszúrva egy másik táblázatba.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet az üzenetednek. De leírnád a kérdésedet részletesebben? Milyen sorokat szeretne beszúrni? Üres? És hova szeretnéd beszúrni a lapon? Ha tudsz, adj egy képernyőképet. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretlek. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez csodálatos volt!!. Köszi haver.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan szúrhatok be egynél több sort?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbálhatod ezt a VBA-t

Sub BlankLine()
„Frissítés: 20150203
Dim Rng mint tartomány
Dim WorkRng As Range
Dim xInsertNum As Long
' Hiba esetén Folytatás a következővel
xTitleId = "Kutools for Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
Ha a WorkRng semmi, akkor lépjen ki a Subból
xInsertNum = Application.InputBox("A beszúrni kívánt üres sorok száma ", xTitleId, Type:=1)
Ha xInsertNum = False, akkor
MsgBox " A beszúrni kívánt üres sorok száma ", vbInformation, xTitleId
Exit Sub
Ha véget
Állítsa be a WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Hamis
Az xRowIndex esetén = xLastRow 1. lépés -1
Rng beállítása = WorkRng.Range("A" & xRowIndex)
Ha Rng.Value = "0" Akkor
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Ha véget
Következő
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha üres sorokat szeretne beszúrni alább, próbálja meg ezt

Sub BlankLine()
„Frissítés: 20150203
Dim Rng mint tartomány
Dim WorkRng As Range
Dim xInsertNum As Long
' Hiba esetén Folytatás a következővel
xTitleId = "Kutools for Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
Ha a WorkRng semmi, akkor lépjen ki a Subból
xInsertNum = Application.InputBox("A beszúrni kívánt üres sorok száma", xTitleId, Type:=1)
Ha xInsertNum = False, akkor
MsgBox " A beszúrni kívánt üres sorok száma ", vbInformation, xTitleId
Exit Sub
Ha véget
Állítsa be a WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Hamis
Az xRowIndex esetén = xLastRow 1. lépés -1
Rng beállítása = WorkRng.Range("A" & xRowIndex)
Ha Rng.Value = "0" Akkor
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Ha véget
Következő
Application.ScreenUpdating = Igaz
End Sub

Az alábbi a fenti sorok beszúrása.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sunny, ez a makró tökéletesen működik nekem; csak a sorok számát kellett módosítanom 30-ra, a 0-t pedig a következő szövegre: "Záróegyenleg". De most be akarok másolni egy 30 sor magas cellát a 30 üres sorba, amelyeket éppen ez a makró szúrt be. Tud-e javasolni egy új makrót (vagy ennek módosítását) egy tartomány másolásához és beillesztéséhez minden 30 üres sorba. A másolandó és beillesztendő tartományt „sablonnak” neveztem el.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hatalmas segítségre van szükségem ebben a témában. 2 oszlopom van, 1-jén az adatidőm 01. 01:2016:05, napok/hónapok/év óra/perc/másodperc és a 00. 00. oszlopban az időhöz tartozó adatok.

A problémám az, hogy adatidőt szeretnék hozzáadni a sorok között, mivel napok vannak. Az 1. sor 01. 01. 2016., a 2. sor pedig például 10. 01. 2016., tehát 9 napom van. és ez a kód nekem nem működik.

Várom a visszajelzéseket! Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbálhatod ezt a VBA-t

Sub InsertValueBetween()
„Frissítés: 20130825
Dim WorkRng As Range
Dim Rng mint tartomány
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'Hiba esetén Folytatás a következővel
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
szám1 = WorkRng.Range("A1").Érték
szám2 = WorkRng.Range("A" & WorkRng.Rows.Count).Érték
intervallum = szám2 - szám1
ReDim outArr(1 - intervallum + 1, 1 - 2)
Minden Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Érték
Következő
Ha i = 0 Az intervallumhoz
outArr(i + 1, 1) = i + szam1
Ha dic.Exists(i + num1) Akkor
outArr(i + 1, 2) = dic(i + szám1)
Más
outArr(i + 1, 2) = ""
Ha véget
Következő
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Érték = outArr
.Válassza ki
Vége
End Sub


Vagy ha rendelkezik Kutools for Excel programmal, kipróbálhatja ezt a funkciót:
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen, mindkettőt kipróbáltam, az elsőt, mivel kb 1 sornyi adatom van, ezt csinálom mind az 500 sorra, és nem csinál semmit, azt hiszem, lehet, hogy korlátozza a használható sorokat, és Ha például csak az első 500 sort választom ki, akkor nem hozza létre a hiányzó sorokat, hanem pótolja a hiányzó adatok sorait.

Egy másik problémám az, hogy az időadataimban szerepel a nap/hónap/év ÓÓ: MM: SS
A weboldal moderátora ezt a megjegyzést minimalizálta
2-től 3-ig létrehozza a hiányzó adatokat, amit akarok rendben, de a 03. 01. 2016. értéke megszűnik, és van néhány időadat, amit nem akarok.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnáljuk, a VBA kód nem segített, de nem találom azt a módszert, amelyik működne a dátum és az idő formátumához. Ha végre megtalálja a megoldást, jelezné? Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia ismét Sunny! Sikerült szerkeszteni a kódot erre (a num1 sort A2-re cseréltem és With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub InsertValueBetween()
„Frissítés: 20130825
Dim WorkRng As Range
Dim Rng mint tartomány
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'Hiba esetén Folytatás a következővel
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
szám1 = WorkRng.Range("A2").Érték
szám2 = WorkRng.Range("A" & WorkRng.Rows.Count).Érték
intervallum = szám2 - szám1
ReDim outArr(1 - intervallum + 1, 1 - 2)
Minden Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Érték
Következő
Ha i = 0 Az intervallumhoz
outArr(i + 1, 1) = i + szam1
Ha dic.Exists(i + num1) Akkor
outArr(i + 1, 2) = dic(i + szám1)
Más
outArr(i + 1, 2) = ""
Ha véget
Következő
With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Érték = outArr
.Válassza ki
Vége
End Sub



Megmutatom a grafikonokat, nem működik 100%-osan, mert nem hozza létre az időt A1-től A2-ig
A weboldal moderátora ezt a megjegyzést minimalizálta
Itt van a kérdésem, és azt hiszem, nagyon nehéz. Van olyan vba kód, amely egy új sort ad egy szűrt oszlop alá, és csak az első három cellát másolja be a hozzáadott új sorba, és addig folytatja, amíg a felhasználó abbahagyja "beírni" és kiszűrni a szűrt cellákat?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérdése kissé nehézkes és összetett, a kérdést felteheti fórumunkba, esetleg valaki tud válaszolni. https://www.extendoffice.com/forum.html
A weboldal moderátora ezt a megjegyzést minimalizálta
szia, csak azt szeretném kérdezni, hogyan lehet sort hozzáadni, ha az a feltétel, hogy a sor hozzáadása akkor történjen meg, ha egy cellában már van adat (egy sok lapot tartalmazó excel munkafüzethez való :) Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
talán ez a vba kód segíthet. Sorokat ad hozzá, ha a fenti sor nem üres

Sub segít()
Dim count As Long
Számláshoz = ActiveSheet.UsedRange.Rows.count to 1 Step -1
Ha Information.IsEmpty(Cells(count, 1)) = False then Rows(count + 1).Insert
Következő számolás
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ezzel a kóddal próbálok beírni egy sort, amikor egy cellában az első 4 számjegy megváltozik (ha ez még lehetséges)

Például,
2222A
2222B
2223K


a sor a 2222B után lesz beszúrva, mivel a 3. szám 3 és nem 2

Köszi srácok!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönjük ezt, de van egy másik forgatókönyvem, amikor be kell szúrnom egy cingle cellát a nem nulla érték alá. Értékeljen minden javaslatot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Gina, most találtam meg a kódot, hogy beszúrhassak egy üres sort a cella fölé, ami nem üres, talán valaki be tudja igazítani az igényeinek megfelelően.

Al beszúrás_sorok()
Dim LR As Long, r As Long

Application.ScreenUpdating = Hamis
LR = Tartomány("A" & sorok.szám).End(xlUp).Sor
Ha r = LR 1-hez -1. lépés
Ha Len(Tartomány("A" & r).Érték) > 0 Akkor
Sorok(r).Beszúrás
Ha véget
Következő r
Application.ScreenUpdating = Igaz
End Sub

jönni valahonnan https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello, ez nagyon hasznos. Mi van, ha két sort akarok hozzáadni alább, és több értéket szeretnék. Például szeretnék hozzáadni két sort a 26. érték után, majd két sort 04. után, és a lista folytatódik. Hogyan tudok folyamatosan hozzáadni a vba-hoz? Bocsi még kezdő vagyok. Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Safa, talán kipróbálhatod a Kutools üres sorok/oszlopok beszúrási segédprogramját.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub BlankLine()
„Frissítés: 20150203
Dim Rng mint tartomány
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type: = 8)
Állítsa be a WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Hamis
Az xRowIndex esetén = xLastRow To 1 Step - 1
Rng beállítása = WorkRng.Range("A" & xRowIndex)
Ha Rng.Value = "0" Akkor
Rng.EntireRow.Insert Shift: = xlDown
Ha véget
Következő
Application.ScreenUpdating = Igaz
End Sub


Szükségem van rá, hogy minden alkalommal működjön, amikor valamit beteszek a cellába, és több változóval is. Úgy értem, hogy ha 2-t teszek a cellába, akkor 2 sort kell beszúrnom, nem csak 1-et.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szükségem van a makróra sorok hozzáadásához egy mennyiség oszlop alapján, ahol ha a mennyiség nagyobb, mint 1, akkor a sorok számát -1 szúrja be. Ha a mennyiség 5, akkor 4 sort szúr be alá, és kitölti az adatokat, és minden sorban módosítja a kihívott mennyiséget 5-ről 1-re. Az összes mennyiség kihagyása 1.
A weboldal moderátora ezt a megjegyzést minimalizálta
Mondja meg a kódot, ahová egy adott számú sort szeretnék hozzáadni egy cellaérték alapján. Például, ha a cella a 18-as számjegyet tartalmazza, automatikusan 18 sort kell hozzáadni a kívánt helyre, és a táblázat/cella többi részének lefelé kell elmozdulnia.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönjük ezt, valóban óriási időmegtakarítás. Lehetséges-e olyan kódot hozzáadni, amely lehetővé teszi, hogy szöveget szúrjak be az új sorba? Például új sorokat szúrok be az „x” célérték alapján, majd az „x” célérték alatti cellába „y” szöveges értéket szeretnék hozzáadni. Van erre lehetőség?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló. A makró működik nálam, de van rá mód, hogy a tartományt/paramétereket mindig a J oszlopra állítsuk, anélkül, hogy a beviteli mező megjelenne? Szeretném, ha kihagyná a megjelenő beviteli mező lépését. Ezenkívül megbizonyosodtam arról, hogy közvetlenül a makró előtt az előző makróm utolsó sora a Range("J:J") legyen. Jelölje be, hogy megbizonyosodjon arról, hogy a teljes J oszlop már ki van jelölve.
Ezt használtam eddig.

Dim Rng mint tartomány
Dim WorkRng As Range
On Error Resume Next
xTitleId = "A folytatáshoz kattintson az OK gombra"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
Állítsa be a WorkRng = WorkRng.Columns(1)
SendKeys "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Hamis
Az xRowIndex esetén = xLastRow 1. lépés -1
Rng beállítása = WorkRng.Range("A" & xRowIndex)
Ha Rng.Value = "Új GMS-vonal" Akkor
Rng.EntireRow.Insert Shift:=xlDown
Ha véget
Következő


Próbáltam kísérletezni a SendKeys "~" paranccsal néhány lépés között, hogy megpróbáljam rávenni, hogy automatikusan megnyomja az Enter billentyűt, amikor megjelenik a beviteli mező, de ez sem működött. Nem voltam benne biztos, hogy pontosan hol használjam a SendKeys parancsot a makróban, vagy hogy működne-e beviteli mezővel is!
A weboldal moderátora ezt a megjegyzést minimalizálta
kérlek segíts, hogy legyen egy adatom. Egy hónapos időbeli adataim vannak, amiben a kilépési időnek megfelelően üres sorokat kell beszúrnom
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, hr.babu08, sajnálom, hogy késik a válasz. Azt hiszem, üres sorokat szeretne beszúrni, vagy megjelölni a hiányzó szekvenciaadatokat, ha igen, akkor próbálja ki a Kutools for Excel Hiányzó sorozatszám keresése funkcióját. Itt található az oktatóanyag a funkcióról: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf más módszereket szeretne használni üres sorok beszúrására a hiányzó sorozatokhoz, látogasson el a következő oldalra:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Ez a marco használható/módosítható színes cellákhoz?
Legalább 10 sort kell beszúrnom az egyes sorozatok vége fölé, amelyek színesek.
Thx!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hozzá kell adnom bizonyos sorokat, amelyekben értékek vannak adott cellatartalomhoz, de nem tudom, hogyan kell ezt megtenni anélkül, hogy kézzel kellene megtennem több mint 3800 sornál

Például: A1 = Node1
Be kell szúrnom egy sort, és be kell írni a Scanner értéket
Írjon be egy másik sort, és írja be a Nyomtató értéket
egy másik sor CD értékkel.
Stb
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Chris, itt van egy VBA, amely segíthet három sor (Scanner, Printer, CD) automatikus beszúrásában, ha az érték megegyezik a Node1 értékkel.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Kérem, tudassa velem, ha működik az Ön számára.
Még senki sem írt megjegyzést
Több ingatlan

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi