Sütunları ve satırları tek satıra nasıl aktarabilirim / dönüştürebilirim?
Birden çok satırı ve sütunu tek bir uzun satırda nasıl birleştirebilirim? Belki, sizin için kolay görünebilir, çünkü onları tek tek kopyalayabilir ve manuel olarak bir satıra birleştirebilirsiniz. Ancak yüzlerce satır ve sütun varsa bu zaman alıcı ve sıkıcı olacaktır. Burada bunu çözmek için bazı hızlı püf noktalarından bahsedeceğim.
Sütunları ve satırları formülle tek satıra dönüştürme / dönüştürme
VBA kodu ile sütunları ve satırları tek satıra dönüştürün / dönüştürün
Kutools for Excel ile sütunları ve satırları tek satıra dönüştürün / dönüştürün
Sütunları ve satırları formülle tek satıra dönüştürme / dönüştürme
Aşağıdaki ekran görüntüsü gösterileri gibi bir dizi veriye sahip olduğunuzu varsayarsak, aralık verilerini uzun bir formülle yeni bir çalışma sayfasında tek bir satıra dönüştürebilirsiniz.
Lütfen formülü şu şekilde uygulayın:
1. Etkin çalışma kitabının yeni bir çalışma sayfasında, A1 hücresine tıklayın, bu formülü kopyalayıp yapıştırın: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
not: Sayfa1! $ A $ 1 kullanmak istediğiniz çalışma sayfası ve aralık referanslarıdır.
SATIR () - 1) * 5 yukarıdaki formülde, 5 satır numarası anlamına gelir; ve SÜTUN () - 1,4) / 4, 4 sütun numarası anlamına gelir. Bunları ihtiyacınıza göre değiştirebilirsiniz.
2. Ardından, 0 sayısı görünene kadar doldurma tutamacını sağa doğru sürükleyin. Bu durumda, aralıktaki tüm veriler yeni bir çalışma sayfasında tek bir satıra aktarılmıştır. Ekran görüntüsüne bakın:
VBA kodu ile sütunları ve satırları tek satıra dönüştürün / dönüştürün
Aşağıdaki VBA kodu, bir dizi veriyi bir satıra dönüştürmenize de yardımcı olabilir.
1. Tuşunu basılı tutun. ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu modül pencere.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub
3. Ardından F5 tuşuna bastığınızda, bir satıra dönüştürmek istediğiniz bir dizi içeriği seçmeniz için bir iletişim kutusu açılır ve Ok, başka bir açılır iletişim kutusu, sonucu ortaya koymak için tek bir hücre seçmeniz içindir. Ekran görüntülerine bakın:
Sonra tıklayın Ok, seçilen aralıktaki içerikler bir satıra dönüştürülür. Ekran görüntüsüne bakın:
not: İçinde OutRng = OutRng.Offset (0, xCols + 0), değiştirebilirsin 0 ihtiyacınızı karşılamak için herhangi bir numaraya.
Örnek için, orijinal satırlara göre sonuçları bir sütun ile ayırmak isterseniz, OutRng = OutRng.Offset (0, xCols + 0) için OutRng = OutRng.Offset (0, xCols + 1)sonuçlar aşağıdaki gibi gösterilir:
Kutools for Excel ile sütunları ve satırları tek satıra dönüştürün / dönüştürün
Görünüşe göre yukarıdaki iki yöntem bizim için biraz zor Excel acemi, burada sizin için Excel için Kutools kullanışlı bir araçtan bahsedeceğim.
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
Yardımcı program ile Aralığı Dönüştür of Kutools for Excel, bir aralığı hızlı bir şekilde tek bir satıra dönüştürebilirsiniz, lütfen aşağıdaki işlemleri yapın:
1. Sırasını değiştirmek istediğiniz aralığı seçin.
2. tık Kutools > Aralık Dönüştürücü > Aralığı Dönüştür, ekran görüntüsüne bakın:
3. içinde Aralığı Dönüştür iletişim kutusunu seçin Tek sıraya kadar aralık seçenek, ekran görüntüsüne bakın:
4. Sonra tıklayın OKve sonucu açılır kutudan koymak için bir hücreyi tıklayın.
5. tık OKve aralıktaki veriler tek bir satıra aktarılmıştır. Ekran görüntülerine bakın:
Bu özellik hakkında daha fazla bilgi edinmek istiyorsanız, lütfen şu adresi ziyaret edin: Aralığı Dönüştür.
İlgili Makaleler:
Excel'de satırı sütuna nasıl değiştirebilirim?
Tek bir sütunu Excel'deki birden çok sütuna nasıl aktarabilirim / dönüştürebilirim?
Sütunları ve satırları tek sütuna nasıl aktarabilirim / dönüştürebilirim?
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!