Hogyan lehet megakadályozni az automatikus számozást az Excel tábla duplikált oszlopfejlécénél?
Az Excelben, amikor beírja az ismétlődő oszlopfejlécet a táblázatba, a rendszer automatikusan hozzáad egy számot, mint a név, név1, név2, és a szám nem távolítható el, ahogy az alábbi képernyőképen látható. A táblázat ismétlődő oszlopfejlécének automatikus számozásának megakadályozása érdekében szóközt adhat a duplikált fejléchez. Íme egy VBA-kód, amely segíthet megismételni a fejlécet, és automatikusan hozzáadni a záró szóközöket, hogy eltérjenek egymástól, de ugyanúgy nézzenek ki.
Szóközök automatikus hozzáadása a fejléchez
Megjegyzés: az oktatóanyagban ismertetett módszereket az Excel 2021-ben tesztelték, de a különböző Excel-verziókban eltérhetnek.
1. Írja be az ismételni kívánt fejléceket egy oszlopba, majd nyomja meg a gombot más + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok új modul létrehozásához a Microsoft Visual Basic for Applications ablakot, majd másolja ki és illessze be az alábbi kódot.
VBA: Ismételje meg és adjon hozzá szóközöket a végén
Sub repeat()
'UpdatebyExtendoffice20220927
Dim xRg As Range
Dim saveRg As Range
Dim xIndex As Integer
Dim xCount As Integer
Dim k As Integer
Dim xStr As String
Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
xIndex = Application.InputBox("Enter the repeat times", "kte")
Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
xStr = ""
xCount = xRg.Cells.Count * xIndex
Set saveRg = saveRg.Range("a1").Resize(1, xCount)
k = 0
For i = 1 To xIndex
For j = 1 To xRg.Cells.Count
k = k + 1
saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
Next
xStr = xStr + " "
Next
End Sub
3. kettyenés futás gombot a szalagon, vagy nyomja meg F5 gombot a kód aktiválásához, az első felugró párbeszédpanelen válassza ki az ismételni kívánt fejléceket. Kattintson OK.
4. A második felbukkanó párbeszédpanelen írja be a kívánt ismétlési időket. Kattintson OK.
5. Jelöljön ki egy cellát, amelybe az ismétlődő fejléceket szeretné kiadni. Kattintson OK.
Most a fejléceket megismételtük, és a végén szóközökkel lettek hozzáadva.
6. Válassza ki a fejléceket, és a gomb megnyomásával másolja őket Ctrl + C, és a gomb megnyomásával illessze vissza őket a kívánt táblázatba Ctrl + V.
Most láthatja, hogy a táblázatban duplikált oszlopfejlécek vannak számozás nélkül.
Egyéb műveletek (cikkek)
Hogyan lehet megtalálni a maximális vagy minimális abszolút értéket, és bejelentkezni az Excelbe
Néha előfordulhat, hogy meg szeretné találni az abszolút értékük maximális vagy minimális értékét, de megtarthatja előjelüket az eredmény visszaadásánál, ahogy az alábbi képernyőképen látható.
Hogyan lehet megőrizni a vezető aposztrófot, amikor Excelben gépel?
Mint tudjuk, ha egy számot szöveggé szeretne változtatni, akkor beírhat egy aposztróf szimbólumot az elején, így: '123, és a szám szöveggé alakul, és elrejti az aposztrófot.
Hogyan lehet rákényszeríteni a megnyitást csak olvashatóként az Excelben?
Néha azt szeretné, ha a megosztott munkafüzeteket megnyitó felhasználók óvatosak lennének, amikor szerkesztik a megosztott munkafüzeteket, akkor írásvédett felszólítással figyelmeztetheti őket...
Hogyan lehet megakadályozni, hogy az Excel automatikusan formázza a dátumokat a CSV-ben?
Itt van egy csv fájl, amely a dátumot szöveges formátumban tartalmazza május 12-20, de az excel megnyitásakor automatikusan dátumformátumban tárolódik...
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
- 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 és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... 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 ...
- Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- 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...
- Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
- 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!