Verileri Excel'deki başka bir çalışma sayfasının bir sonraki boş satırına nasıl kopyalayabilirim?
Sayfa1'in A1: E1 aralığındaki belirli verileri kopyalamak ve aşağıda gösterilen ekran görüntüsü gibi bir çalışma kitabındaki Sayfa2'nin bir sonraki boş satırına hızlı bir şekilde yapıştırmak istediğinizi varsayarsak, kolayca ne yapabilirsiniz? Bu makale sizin için bir VBA yöntemi tanıtacaktır.
Verileri VBA kodu ile başka bir çalışma sayfasının sonraki boş satırına kopyalayın
Verileri VBA kodu ile başka bir çalışma sayfasının sonraki boş satırına kopyalayın
Belirli bir sayfadaki verileri kopyalamak ve başka bir çalışma sayfasının sonraki boş satırına otomatik olarak yapıştırmak için aşağıdaki VBA kodunu çalıştırabilirsiniz.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: verileri başka bir çalışma sayfasının sonraki boş satırına kopyalayın
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
not: Kodda, Sayfa2, kopyalanan verilerin hedef çalışma sayfasıdır. İhtiyacınıza göre değiştirebilirsiniz.
3. Tuşuna basın. F5 açılır pencerede kodu çalıştırmak için anahtar Kutools for Excel iletişim kutusu, lütfen Sayfa2'nin bir sonraki boş satırına kopyalamak istediğiniz aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, Sayfa1'in kopyalanan verileri, aşağıda gösterilen ekran görüntüsü gibi hemen belirli Sayfa2'nin bir sonraki boş satırına yapıştırılır:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!