Hvordan kopieres kun grænser for det valgte interval i Excel?
Mens du bruger Microsoft Excel, er det let at kun kopiere celleværdier, celleformatering, celleformler og så videre fra et interval med funktionen Indsæt speciel. Men har du nogensinde forsøgt at kopiere kun kantstil fra et interval i Excel? Denne artikel viser dig metoden til kun at kopiere grænser for det valgte område til et nyt interval i Excel.
Kopier kun kanter af det valgte område med VBA-kode
Kopier kun kanter af det valgte område med VBA-kode
Den følgende VBA-kode kan hjælpe dig med kun at kopiere kantstil for valgte celler og derefter anvende denne kantstil til et nyt område i Excel. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier og indsæt derefter nedenstående VBA-kode i vinduet Kode.
VBA-kode: Kopier kun grænser for det valgte interval i Excel
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. Tryk på F5 nøgle for at køre koden. I den første dukker op Kutools til Excel i dialogboksen skal du vælge det interval med kanter, du skal kopiere, og klik derefter på OK .
4. I det andet Kutools til Excel Vælg en celle for at anvende den kopierede ramme, og klik derefter på OK knap. Se skærmbillede:
Derefter kan du kun se grænsestilen for det valgte område kopieres og anvendes på et nyt interval som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan kopieres og indsættes værdier, der springer duplikater over i Excel?
- Hvordan kopieres celledata med rækkehøjde og kolonnebredde i Excel?
- Hvordan kopieres celle som tekstværdi ikke formel i Excel?
- Hvordan kopieres data til næste tomme række i et andet regneark i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
