Sut i gopïo data i'r rhes wag nesaf o daflen waith arall yn Excel?
Gan dybio eich bod am gopïo data penodol yn ystod A1: E1 o Daflen 1 a'i gludo'n gyflym i'r rhes wag nesaf o Daflen 2 mewn llyfr gwaith fel y dangosir isod y llun, beth allwch chi ei wneud yn hawdd ei gyflawni? Bydd yr erthygl hon yn cyflwyno dull VBA i chi.
Copïwch ddata i res wag nesaf taflen waith arall gyda chod VBA
Copïwch ddata i res wag nesaf taflen waith arall gyda chod VBA
Gallwch redeg y cod VBA isod i gopïo data mewn dalen benodol a'i gludo i res wag nesaf taflen waith arall yn awtomatig.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: copïwch ddata i'r rhes wag nesaf o daflen waith arall
Private Sub CommandButton1_Click()
Dim xScreenUpdating As Boolean
Dim xPasteSht As Worksheet
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xPasteSht = Worksheets("Sheet2")
xScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.Copy
xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = xScreenUpdating
End Sub
Nodyn: Yn y cod, Sheet2 yw taflen waith cyrchfan y data a gopïwyd. Gallwch ei newid yn seiliedig ar eich angen.
3. Gwasgwch y F5 allwedd i redeg y cod, yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod rydych chi am ei chopïo i res wag nesaf Sheet2, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna mae'r data a gopïwyd o Daflen 1 yn cael ei gludo i res wag nesaf y Daflen 2 benodol yn syth fel y dangosir isod y screenshot:
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!