Excel'deki hücre değerine göre tüm satırı etkin sayfanın altına nasıl taşıyabilirim?
Excel'deki hücre değerine göre satırın tamamını etkin sayfanın en altına taşımak için lütfen bu makaledeki VBA kodunu deneyin.
VBA kodu ile hücre değerine göre satırın tamamını etkin sayfanın en altına taşı
VBA kodu ile hücre değerine göre satırın tamamını etkin sayfanın en altına taşı
Örneğin, aşağıda gösterilen ekran görüntüsü gibi, C sütunundaki bir hücre belirli bir "Bitti" değeri içeriyorsa, tüm satırı geçerli sayfanın altına taşıyın. Lütfen aşağıdaki işlemleri yapın.
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 kopyalayıp pencereye yapıştırın.
VBA kodu: Hücre değerine göre satırın tamamını etkin sayfanın en altına taşı
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
not: VBA kodunda, "tamam"Satırın tamamını esas alarak taşıyacağınız hücre değeridir. İhtiyacınız olduğu gibi değiştirebilirsiniz.
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar, ardından açılır pencerede Kutools for Excel iletişim kutusunda, belirli bir değerin bulunduğu sütun aralığını seçin ve ardından OK düğmesine basın.
Tıkladıktan sonra OK düğmesi, belirtilen sütunda "Bitti" değerini içeren satırın tamamı otomatik olarak veri aralığının altına taşınır.
İlgili Makaleler:
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!