Hogyan lehet ugyanazt a szöveget beszúrni az Excel minden második sorába?
Ebben a cikkben megmutatjuk, hogyan illessze be ugyanazt a szöveget az Excel minden második sorába. Kérjük, böngésszen további részletekért.
Helyezzen be ugyanazt a szöveget minden sorba, VBA kóddal
Szúrja be ugyanazt a szöveget minden második sorba a következővel: Kutools for Excel
Helyezzen be ugyanazt a szöveget minden sorba, VBA kóddal
Tegyük fel, hogy a „Név”, az „Adatok” és a „Pontszám” szöveget be akarja illeszteni az adott tartomány minden egyes sorába, az alábbi képernyőkép szerint. Kérjük, próbálja meg a következő VBA kódot.
1. A munkalapon nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazásokhoz ablak.
2. kettyenés betétlap > Modulok. Lásd a képernyőképet:
3. Másolja és illessze be a VBA kód alatt a Code szerkesztőbe.
VBA kód: ugyanazt a szöveget illessze be az Excel minden sorába
Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step - 1
If Not Cells(emptyRow, 1).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
End If
Next emptyRow
End Sub
Megjegyzések: A fenti kódban:
Szúrja be ugyanazt a szöveget minden második sorba a következővel: Kutools for Excel
A fenti kóddal egyszerűen beilleszthet szöveget minden sorba. Mi lenne, ha az Excel minden n sorába beszúrna szöveget? Ebben a részben megmutatjuk a Helyezze be a Címsorokat hasznossága Kutools for Excel. Ezzel a segédprogrammal már nem jelent problémát minden n sorba beilleszteni a szöveget.
Alkalmazás előtt Kutools for ExcelKérjük, először töltse le és telepítse.
1. kettyenés Kutools > betétlap > Helyezze be a címsorokat a segédprogram engedélyezéséhez.
2. Ban,-ben Helyezze be a címsorokat párbeszédpanelen:
Most a megadott szöveget a kiválasztott tartomány minden n sorába beillesztjük.
Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos 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!




