Jak skopiować tylko granice wybranego zakresu w programie Excel?
Korzystając z programu Microsoft Excel, można łatwo skopiować tylko wartości komórek, formatowanie komórek, formuły komórek itd. Z zakresu za pomocą funkcji Wklej specjalnie. Ale czy kiedykolwiek próbowałeś skopiować tylko styl obramowania z zakresu w programie Excel? W tym artykule pokażemy metodę kopiowania tylko obramowań wybranego zakresu do nowego zakresu w programie Excel.
Skopiuj tylko granice wybranego zakresu za pomocą kodu VBA
Skopiuj tylko granice wybranego zakresu za pomocą kodu VBA
Poniższy kod VBA może pomóc tylko skopiować styl obramowania wybranych komórek, a następnie zastosować ten styl obramowania do nowego zakresu w programie Excel. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Kopiuj tylko granice wybranego zakresu w programie 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. wciśnij F5 klucz do uruchomienia kodu. W pierwszym wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres z obramowaniami, które chcesz skopiować, a następnie kliknij OK przycisk.
4. W sekundę Kutools dla programu Excel W oknie dialogowym wybierz komórkę, aby zastosować skopiowane obramowanie, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie możesz zobaczyć, że tylko styl obramowania wybranego zakresu jest kopiowany i stosowany do nowego zakresu, jak pokazano poniżej.
Powiązane artykuły:
- Jak skopiować i wkleić wartości pomijając duplikaty w programie Excel?
- Jak skopiować dane komórek z wysokością wiersza i szerokością kolumny w programie Excel?
- Jak skopiować komórkę jako wartość tekstową, a nie formułę w programie Excel?
- Jak skopiować dane do następnego pustego wiersza innego arkusza roboczego w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!