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

Hogyan hozhatunk létre új lapokat az Excel minden sorához?

Tételezzük fel, hogy van egy ponttáblázata az összes tanuló nevével az A oszlopban. Most új lapokat szeretne létrehozni az A oszlopban található nevek alapján, és a laponkénti készítés egyedi tanulói adatokat tartalmaz. Vagy egyszerűen csak hozzon létre új lapot a táblázat minden sorához anélkül, hogy figyelembe venné az A oszlopban található neveket. Ebben a videóban módszereket talál ennek elérésére.

Hozzon létre új lapokat minden sorhoz VBA kóddal
Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával


Hozzon létre új lapokat minden sorhoz VBA kóddal

A következő kódokkal új lapokat hozhat létre oszlopértékek alapján, vagy csak új lapokat hozhat létre az Excel minden sorához.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután illessze be a következő kódot a Modulok ablak.

VBA kód: hozzon létre új lapot minden sorhoz az oszlop alapján

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Megjegyzések: A1: C1 a táblázat címtartománya. Igényei alapján megváltoztathatja.

3. nyomja meg F5 kulcs a kód futtatásához, akkor új munkalapok jönnek létre az aktuális munkafüzet összes munkalapja után, az alábbi képernyőképen:

Ha közvetlenül új lapokat szeretne létrehozni minden sorhoz, az oszlop értékének figyelembevétele nélkül, akkor a következő kódot használhatja.

VBA kód: Minden sorhoz közvetlenül hozzon létre új lapot

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

A kód futtatása után az aktív munkalap minden egyes sora új munkalapba kerül.

Megjegyzések: A címsor is egy új lapba kerül ezzel a VBA kóddal.


Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával

Valójában a fenti módszer bonyolult és nehezen érthető. Ebben a részben bemutatjuk Önnek a Osztott adatok hasznossága Kutools az Excel számára.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Jelölje ki azt a táblázatot, amelyet új lapok létrehozásához használni kell, majd kattintson a gombra Kutools Plus> Köpésadatok. Lásd a képernyőképet:

2. Ban,-ben Az adatok felosztása több munkalapra párbeszédpanelt, kérjük, tegye a következőket.

A. Új lapok létrehozásához oszlopérték alapján:

1). Kérjük, válassza ki a Konkrét oszlop opciót, és adjon meg egy oszlopot, amely alapján fel kívánja osztani az adatokat a legördülő listában;
2). Ha oszlopértékekkel kívánja elnevezni a munkalapokat, válassza a lehetőséget Oszlop értékei a Szabályok legördülő lista;
3). Kattints a OK gomb. Lásd a képernyőképet:

B. Új lapok közvetlen létrehozásához minden sorhoz:

1). Válassza a lehetőséget Fix sorok lehetőséget, írja be a számot 1 a dobozba;
2). Válassza a lehetőséget Sorszámok tól Szabályok legördülő lista;
3). Kattints a OK gomb. Lásd a képernyőképet:

új munkafüzet jön létre, benne az összes új ívvel. Lásd az alábbi képernyőképeket.

Új lapok létrehozása minden sorhoz az oszlop értéke alapján:

Új lap létrehozása minden sorhoz az oszlop értékének figyelembevétele nélkül:

  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.

Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával


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 (33)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözlöm! Munkalapokat szeretnék létrehozni a Myformat sablonfájlom alapján, és elnevezni őket az első oszlop adatai szerint. A VBA kódot a következőképpen szabtam testre, de túl sok üres lapot generál. Kérem, segítsen nekem abbahagyni az üres lapok generálását. Köszönöm. Kumar Sub AddSheets() Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = wbToAddSheetsTo = wbToAddSheetsTo = Minden cella InTobheets. Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Hiba esetén Folytatás Következő ActiveSheet.Name = cell.Value Ha Hibaszám = 2 Akkor Debug.Print cell.Value & " már használt lapnévként" End If On Error Ugrás 165 Vége a következő cellával End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Mindig 2 lapot kapok az A sor egyedi bejegyzéseiért. Van ötleted miért? Azt is, hogy milyen nehéz lenne a munkalap nevéhez fűzni a generált lap által létrehozott sorok teljes számát. Köszönöm szépen! Szólj, ha elfogadsz adományokat.
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözlöm, az exel MyFormat fájlsablonomat szeretném használni munkalapok generálására és a munkalapok elnevezésére az első oszlop adatai szerint. A következő VBA-kód megfelelően működik a munkalapok MyFormat szerint történő előállításához. De több száz üres lapot generál a normál excel sablonon is. Kérem, segítsen valaki abban, hogy ne állítsam le a felesleges üres lapokat. Köszönet: Kumar Sub AddSheets() Dim cell Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo wbToAddSheetsTo =wbToAddSheetsTo wbToAddSheetsTo =cellaWbToAddSheets WithWWWWWWWWHetkeS2DWorheetS"AWorheetS" .Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Hiba esetén Folytatás Következő ActiveSheet.Name = cell.Érték, ha Hibaszám = 165 Ezután Debug.Print cell.Value & " már használt lapnévként" End If On Error Ugrás 1004 Vége a következő cellával End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
A munkalapok nevének legfeljebb harminc karakter hosszúnak kell lennie.
Nem túl általánosan ismert, de egyébként a kód egy alapértelmezett üres "#. lap" munkalapot fog kiadni.

Hozzon létre egy új munkalapot, amelyen az elemző kód átfut, és hivatkozzon az első oszlopra az alábbiak szerint:
=IF(VAGY('Hivatkozott eredeti'!B1<>"", LEN('Hivatkozott eredeti'!B1)>30), LEFT('Hivatkozott eredeti'!B1,30),'Hivatkozott eredeti'!B1)


Másolja át, vagy hivatkozzon a lap többi részére, ahogy tudja. Győződjön meg arról, hogy az oszlop mentes az adatellenőrzési korlátozásoktól, ha problémái vannak a másik munkalapra való hivatkozással.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm, hogy ezt közzétetted!!!! Úgy működött, mint egy varázslat. Meg tudná magyarázni, hogyan működik az első kódkészlet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet ezért!



A VBA kódban van egyébként az első és a második oszlopsor adataiból eredő lapok elnevezése?



így a 2. példalapod esetében automatikusan "linda 100" lesz a neve
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Joyce!
Köszönöm hozzászólásodat! Remélhetőleg az alábbi VBA-szkript segíthet.

Sub parse_data()
Dim xRCount As Long
Dim xSht Munkalapként
Dim xNSht munkalapként
Dim I As Long
Dim xTRrow As Integer
Dim xCol Új kollekcióként
Dim xTitle As String
On Error Resume Next
Application.ScreenUpdating = Hamis
Állítsa be az xSht = ActiveSheet
xRCount = xSht.UsedRange.End(xlDown).Sor
xTitle = "A1:B1"
xTRrow = xSht.Range(xTitle).Sor
Ha I = 2 To xRCount
Hívja az xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1)))
Következő
Debug.Print xCol.Count
Ha I = 1 - xCol.Count
Hívja meg az xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Semmi
Set xNSht = Munkalapok(CStr(xCol.Item(I)))
Ha az xNSht Semmi akkor
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Elem(I) & xSht.Cells(I + 1, 2))
Más
xNSht.Move , Sheets(Sheets.Count)
Ha véget
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Következő
xSht.AutoFilterMode = Hamis
xSht.Activate
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyon hasznos volt, pont ezt kerestem. Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a kód nagyon hasznos, és majdnem az, amit kerestem.
De beállítható-e úgy, hogy két lap legyen?
Az 1. lap a Data – egy adattábla, amelynek neve az A oszlop
A 2. lap egy sablon, számos kitöltendő mezővel
Amit reméltem, hogy futtassunk egy makrót, ami meg is fog
1 Másolja és illessze be a sablont ugyanabban a fájlban, nevezze el a lapot az A1 cellában lévő névnek
2 Másolja a B1 cellát, majd a múltat ​​az új sablon egy kiválasztott mezőjébe
3 Ismételje meg az 1. sorban, amíg üres
4, majd ismételje meg a 2. sort és minden sort a végéig.
Az eredmény egy x számú fájl. lapok megegyeznek a sablonnal, minden mezővel kitöltve.
Örököltem egy fájlt, amely más módon működik, sablonokból kinyeri az adatokat egy táblázatba, de nem tudja visszafordítani.....
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Sam!
Jó lenne, ha ide csatolnád a munkafüzetedet.
A fájlt az alábbi Fájlok feltöltése gombbal töltheti fel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello, megpróbáltam használni a kódodat, de hibaüzenetet kapok
Futásidőzítő hiba '1004':
Alkalmazás- vagy objektum-definiált hiba
Nem ismerem a VBA-t (vagy bármilyen más technológiát sem), de ha egy sajtóhibakeresés a 11. sort kiemeli, xRCount=xSht.Cells(xSht.Rows.Count,1). End(xIUp).Sor
Egy nagy fájllal dolgozom, amely 127 oszlopot és 337 sort tartalmaz (a sorok változhatnak, az oszlopok nem), és ez egy lista a számokkal és azok részleteivel.
Módosítottam a tartományt, ahogy leírtad, de még mindig nem működik. Excel 2010-et használok.
Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Beatriz!
A kód frissül a problémamegoldással. Kérjük, próbálja meg újra. Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló, azt hiszem, van itt valami hasznos az én helyzetemben, de tudok VBA-t vagy scriptet csinálni, remélem tud segíteni.
Van egy sablonom sok cellával, amelyet adatokkal kell kitölteni, és lesz egy keresési kulcs (nem egyedi), amelyet be szeretnék írni a sablonba. A keresési kulcs alapján megtörténik az adatok keresése, és a megfelelő kulcshoz tartozó adatok lekérése és kitöltése a sablonba. A kitöltött sablon egy új munkalapra kerül mentésre. Lehet, hogy több mint 1 meccsbejegyzés van. Szükségem van a szkriptre, hogy folytassam a keresést a listában, amíg az összes egyezést kiválasztja, és létrejön a bizonyos számú új munkalap.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, van mód arra, hogy minden új munkalapon megtartsuk a fejlécet? (pirossal bekarikázva a mellékletemen)

A kód átveszi a fő munkalapom összes sorát, és áthelyezi őket új munkalapokba, ami nagyszerű. De szeretném megtartani a "fő" fejléc értékét (pirossal bekarikázva) minden új munkalap tetején. Kösz!



Erre a kódra utalok fentről:

Sub RowToSheet()
Dim xRow As Long
Dim I As Long
Az ActiveSheet programmal
xRow = .Tartomány("A" & sorok.szám).End(xlUp).Sor
Ha I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Sor" & I
.Rows(I).Másolás Lapok("Sor " & I).Tartomány("A1")
Következő I
Vége
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek kód, de kaphatnék segítséget, ha az adataim a G oszlopban vannak az A oszlop helyett? mit kell módosítanom, hogy a G oszlop adatai más lapokon legyenek?

Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyszerű kód. Köszönet az OfficeExtend agydobozainak!! Valahogy módosítható ez a kód úgy, hogy sorok helyett külön lapokat hozzon létre minden *oszlophoz*? Csatoltam egy képet arról, hogy mit próbálok elérni. Van erre lehetőség? Üdvözlettel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Nem láttam itt a képedet.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, hogyan kell módosítani a kódot, ha a nevem mező a C oszlopban van
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Abdul Basit!
Az alábbi VBA kód segíthet. Kérjük, próbálja meg.
Az xCName = "3" sorban a 3 az oszlopszámot jelöli (itt a C oszlop) az Excelben. Igény szerint bármilyen oszlopszámra módosíthatja.

Sub parse_data()
'Frissítés Extendoffice 2018 / 3 / 2
Dim xRCount As Long
Dim xSht Munkalapként
Dim xNSht munkalapként
Dim I As Long
Dim xTRrow As Integer
Dim xCol Új kollekcióként
Dim xTitle As String
Dim xSUpdate Boolean-ként
Dim xCName As Integer
Dim xTA, xRA, xSRg1 karakterláncként
Állítsa be az xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Sor
xTitle = "A1:C1"
xCName = "3" 'Módosítsa ezt a számot arra az oszlopszámra, amely alapján új lapokat fog létrehozni
xTRrow = xSht.Range(xTitle).Cells(1).Sor
Ha I = 2 To xRCount
Hívja meg az xCol.Add(xSht.Cells(I, xCNname).Text, xSht.Cells(I, xCNname).Text)
Következő
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Hamis
xSRg = xSht.Cells(1, xCNname).Cím(RowAbsolute:=False, ColumnAbsolute:=False)
Ha I = 1 - xCol.Count
Hívja meg az xSht.Range(xTitle).AutoFilter(xCName, CStr(xCol.Item(I)))
Set xNSht = Semmi
Set xNSht = Munkalapok(CStr(xCol.Item(I)))
Ha az xNSht Semmi akkor
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Elem(I))
Más
xNSht.Move , Sheets(Sheets.Count)
Ha véget
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Következő
xSht.AutoFilterMode = Hamis
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Menő VBA-kód a trükkhöz.

Hogyan módosíthatom úgy, hogy ne másolja az első oszlopot? És eltávolítani az oszlop nevét?

Üdvözlettel
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, kaphatok segítséget a lapok automatikus elnevezéséhez egy adott oszlop használatával. Ez a VBA sorra vonatkozik. Lásd lentebb

Sub RowToSheet()

Dim xRow As Long

Dim I As Long

Az ActiveSheet programmal

xRow = .Tartomány("A" & sorok.szám).End(xlUp).Sor

Ha I = 1 To xRow

Worksheets.Add(, Sheets(Sheets.Count)).Name = "Sor" & I

.Rows(I).Másolás Lapok("Sor " & I).Tartomány("A1")

Következő I

Vége

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem számít, rejtett utószóközök voltak. Használtam a TRIM funkciót és megtisztítottam. Sorszámmal rendelkezni (a sorok száma valóban elképesztő lenne, ha a -1 sorok a munkalap elé kerülnének)
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan lehet hivatkozni a fenti kód használatára (kredit)? Lehetséges a kód módosítása?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ez egy nyílt kommunikációs platform. A kód hivatkozhat és módosítható.
A weboldal moderátora ezt a megjegyzést minimalizálta
Naná
86
2
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló! Csak ezt a kódot használtam és működött! Amellett, hogy minden bejegyzéshez új lapot kell létrehozni, szeretném áthelyezni oszlopokba, és nem tudok rájönni. Tehát a fenti példában a Nana kimenete így néz ki: Név NanaPontszám 86Nem. 2
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló, használtam ezt a kódot és működött, de ha a fejlécben egynél több sort akarok kijelölni, mi fog változni a kódban? Több sorom van a lapon, amelyeket minden lapon akarok.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello, rájöttél, hogyan?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, van olyan kód, amely csak 1 új lapot ad hozzá a makró minden egyes futtatásakor, pl. az első alkalommal az új munkalapot az A1 cella tartalmán nevezik el, a makró második futtatásakor az új munkalapot a Az A1 tartalma stb. előre is köszönöm
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

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