Sut i gopïo ffiniau o ystod ddethol yn Excel yn unig?
Wrth ddefnyddio Microsoft Excel, mae'n hawdd copïo gwerthoedd celloedd yn unig, fformatio celloedd, fformwlâu celloedd ac ati o ystod gyda'r swyddogaeth Gludo Arbennig. Ond a ydych erioed wedi ceisio copïo arddull ffin yn unig o ystod yn Excel? Bydd yr erthygl hon yn dangos dull i chi o gopïo ffiniau o ystod ddethol yn unig i ystod newydd yn Excel.
Copïwch ffiniau o ystod ddethol yn unig gyda chod VBA
Copïwch ffiniau o ystod ddethol yn unig gyda chod VBA
Gall y cod VBA canlynol eich helpu i gopïo arddull ffin celloedd dethol yn unig, ac yna cymhwyso'r arddull ffin hon i ystod newydd yn Excel. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod.
Cod VBA: Copïwch ffiniau'r ystod a ddewiswyd yn Excel yn unig
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. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping cyntaf Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod gyda ffiniau y mae angen i chi eu copïo, ac yna cliciwch ar y OK botwm.
4. Yn yr ail Kutools ar gyfer Excel blwch deialog, dewiswch gell i gymhwyso'r ffin a gopïwyd, yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna gallwch weld dim ond arddull ffin yr ystod a ddewiswyd sy'n cael ei chopïo a'i gymhwyso i ystod newydd fel y dangosir isod y screenshot.
Erthyglau perthnasol:
- Sut i gopïo a gludo gwerthoedd gan sgipio dyblygu yn Excel?
- Sut i gopïo data celloedd gydag uchder rhes a lled colofn yn Excel?
- Sut i gopïo cell fel gwerth testun nid fformiwla yn Excel?
- Sut i gopïo data i'r rhes wag nesaf o daflen waith arall yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
