Excel'de diğer her satırı sütuna taşıma
Her tek satırı bir sütuna ve her çift satırı diğer sütuna taşımak gibi, diğer satır verilerini Excel'de bir sütuna taşımayı denediniz mi, aşağıdaki ekran görüntüsü gibi. Burada bu sorunu çözebilecek bazı püf noktaları buluyorum.
Diğer her satırı formülle sütuna taşı
VBA ile diğer her satırı sütuna taşıyın
Kutools for Excel ile diğer her satırı sütuna taşıyın
Diğer her satırı formülle sütuna taşı
Çoğu Excel kullanıcısı için, Excel'deki sorunu çözmek için formül kullanmak en kolay yoldur.
1. Verilerinizin yanındaki bir hücreyi seçin ve bu formülü yazın = EĞER (ISEVEN (SATIR (B2)); B2; "") (B2 almak istediğiniz veriyi gösterir) içine girin ve Keşfet tuşuna ve ardından bu formülü kullanmak istediğiniz aralığı doldurmak için otomatik dolguyu sürükleyin. Şimdi her ikinci satır verileri bu sütundan alınmıştır.
2. Ardından yukarıdaki sütunun yanındaki diğer hücreyi seçin ve bu formülü yazın = EĞER (ISODD (SATIR (B3)), B3; "") (B3, almak istediğiniz verilerdir) içine girin ve Keşfet tuşuna ve ardından bu formülü kullanmak istediğiniz aralığı doldurmak için otomatik dolguyu sürükleyin. Şimdi her üçüncü satır verileri bu sütundan alınmıştır.
VBA ile diğer her satırı sütuna taşıyın
Takip eden VBA ayrıca diğer her satırı sütuna taşıyabilir.
1. Basın F11 + Alt M'yi açmak için klavyede tuşları birlikteUygulamalar için icrosoft Visual Basic pencere.
2. Sonra tıklayın Ekle > modül yeni bir modül penceresi eklemek için. Ve sonra aşağıdaki VBA kodunu pencereye kopyalayın.
VBA: Diğer her satırı sütuna taşı.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. tık koşmak düğmesi veya F5 tuşunu basılı tutun ve taşımak için bir aralık seçmeniz için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Sonra tıklayın OK Sonuç çıktısının alınacağı hücreyi seçmek için diğer iletişim kutusunu göstermek Ekran görüntüsüne bakın:
5. tık OKve sonucu aşağıdaki gibi görebilirsiniz:
Kutools for Excel ile diğer her satırı sütuna taşıyın
Formüllerin ve VBA'nın yanı sıra, yüklediyseniz Kutools for Excel, kullanabilirsin Aralığı Dönüştür diğer her satırı sütuna hızla taşıma özelliği.
Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın
1. Her iki satırda bir taşımak istediğiniz aralığı seçin ve Kutools > Aralık Dönüştürücü > Aralığı Dönüştür. Ekran görüntüsüne bakın:
2. içinde Aralığı Dönüştür iletişim, kontrol et Tek sütun aralığı in Dönüştürme Türü bölümü ve kontrol edin Sabit değer sonra seçin veya girin 2 listedeki Kayıt başına satır Bölüm. Ekran görüntüsüne bakın:
3. tık Ok sonucu ortaya çıkarmak için tek bir hücre seçmek üzere bir iletişim kutusu açmak için ekran görüntüsüne bakın:
4. Sonra tıklayın OK. Sonucu aşağıdaki gibi görebilirsiniz:
Transform Aralığı hakkında daha fazla bilgi için.
İ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!