Hogyan lehet csak a kijelölt tartomány határait másolni az Excelben?
A Microsoft Excel használata közben a Másolás beillesztése funkcióval egyszerűen csak a cellák értékeit, a cellák formázását, a cellaképleteket stb. De próbált-e már csak a szegélystílust másolni az Excel tartományából? Ez a cikk bemutatja azt a módszert, hogy csak a kijelölt tartomány határait másolja az Excel új tartományába.
Csak a kijelölt tartomány határainak másolása VBA kóddal
Csak a kijelölt tartomány határainak másolása VBA kóddal
A következő VBA-kód csak a kijelölt cellák szegélystílusának másolásában segíthet, majd ezt a szegélystílust alkalmazhatja az Excel új tartományára. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja és illessze be az alábbi VBA kódot a Kód ablakba.
VBA kód: Csak a kijelölt tartomány határainak másolása az Excelben
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3. megnyomni a F5 gombot a kód futtatásához. Az első felbukkanó Kutools az Excel számára párbeszédpanelen válassza ki a másolandó szegélyekkel rendelkező tartományt, majd kattintson a gombra OK gombot.
4. A másodikban Kutools az Excel számára párbeszédpanelen válasszon egy cellát a másolt szegély alkalmazásához, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ekkor láthatja, hogy a kiválasztott tartomány csak a szegélystílusát másolja és alkalmazza egy új tartományra, az alábbi képernyőképen.
Kapcsolódó cikkek:
- Hogyan lehet másolni és beilleszteni az értékeket, kihagyva a duplikátumokat az Excel programban?
- Hogyan másoljuk a cellák adatait sormagassággal és oszlopszélességgel az Excel programban?
- Hogyan másolhat cellát szövegértékként, és nem képletet az Excelben?
- Hogyan lehet adatokat másolni az Excel egy másik munkalapjának következő üres sorába?
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!
