Conas sonraí a chóipeáil go dtí an chéad tsraith folamh eile de bhileog oibre eile in Excel?
Má theastaíonn uait sonraí áirithe a chóipeáil i raon A1: E1 de Bhileog1 agus iad a ghreamú go tapa go dtí an chéad tsraith folamh eile de Bhileog2 i leabhar oibre mar a thaispeántar thíos an scáileán, cad is féidir leat a dhéanamh go héasca? Tabharfaidh an t-alt seo modh VBA isteach duit.
Cóipeáil sonraí go dtí an chéad tsraith folamh eile de bhileog oibre eile le cód VBA
Cóipeáil sonraí go dtí an chéad tsraith folamh eile de bhileog oibre eile le cód VBA
Féadfaidh tú an cód VBA thíos a rith chun sonraí a chóipeáil i mbileog áirithe agus iad a ghreamú go dtí an chéad tsraith folamh eile de bhileog oibre eile go huathoibríoch.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.
Cód VBA: cóipeáil sonraí go dtí an chéad tsraith folamh eile de bhileog oibre eile
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 Subnótaí: Sa chód, is é Bileog2 an bhileog oibre ceann scríbe de na sonraí cóipeáilte. Is féidir leat é a athrú bunaithe ar do riachtanas.
3. Brúigh an F5 eochair chun an cód a rith, sa phreabadh suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon is mian leat a chóipeáil go dtí an chéad tsraith folamh eile de Bhileog 2, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
Ansin déantar na sonraí cóipeáilte de Bhileog1 a ghreamú go dtí an chéad tsraith folamh eile de Bhileog2 ar leith díreach mar a thaispeántar thíos an pictiúr:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
