İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də başqa bir iş səhifəsinin növbəti boş satırına məlumatların nüsxəsini necə çıxarmaq olar?

A1: E1-dən Sheet1-də müəyyən məlumatları kopyalamaq və bunu bir iş kitabçasındakı növbəti bir boşluqda Sheet2-in növbəti boş satırına aşağıda göstərilən ekran görüntüsünə kimi yapışdırmaq istədiyini düşünsəniz, asanlıqla nə edə bilərsiniz? Bu yazı sizin üçün VBA metodu təqdim edəcəkdir.

Verileri VBA kodu ilə başqa bir iş səhifəsinin növbəti boş satırına köçürün


Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına birləşdirin:

Bir çox iş səhifəsini və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirin, gündəlik işinizdə böyük bir vəzifə ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü fayda - Birləşdirmək tez bir çox iş səhifəsini, iş kitabını bir iş və ya iş kitabına birləşdirməyə kömək edə bilər.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


arrow mavi sağ bubble Verileri VBA kodu ilə başqa bir iş səhifəsinin növbəti boş satırına köçürün


Verilənləri müəyyən bir hesabatda kopyalamaq və başqa bir iş səhifəsinin növbəti boş satırına avtomatik olaraq yerləşdirmək üçün aşağıdakı VBA kodunu çalıştırabilirsiniz.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Aşağıdakı VBA kodunu Module pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: məlumatları növbəti iş yerinin növbəti boş satırına köçürü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

Qeyd: Kodda, Sheet2 kopyalanan məlumatların təyinat işləri səhifəsidir. İhtiyacınıza əsasən onu dəyişə bilərsiniz.

3. Basın F5 kodu açmaq üçün düyməni basmaqla açın Excel üçün Kutools informasiya qutusuna, Sheet2 növbəti boş satırına kopyalamaq istədiyiniz aralığı seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra Sheet1-in kopyalanan məlumatları aşağıda göstərilən ekran göründüyü kimi xüsusi Sheet2-in növbəti boş satırına yapıştırılır:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.