Her 5 veya n satırı, tek bir sütundan birden fazla sütuna nasıl transpoze edilir?
Excel'de tek bir sütundaki verileri her 5 (veya n) satırda bir birden fazla sütuna transpoze etmek, verileri analiz etmek veya raporlamak amacıyla yeniden düzenlerken son derece faydalı olabilir. Diyelim ki A sütununda uzun bir veri listeniz var ve bu listeden her 5 satırı yatay olarak farklı sütunlara aktarmak istiyorsunuz—örneğin A1:A5 aralığını C6:G6’ya, A6:A10 aralığını C7:G7’ye ve bu şekilde devam ederek sol taraftaki ekran görüntüsünde gösterildiği gibi düzenlemek istiyorsunuz. Bu görev, sunduğu avantajlarla birlikte farklı yöntemlerle gerçekleştirilebilir. Şimdi bunu adım adım nasıl yapacağınızı detaylı şekilde inceleyelim.
Her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze edin
Formül ile her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze edin
Excel'de, tek bir sütundaki her n satırı birden fazla sütuna transpoze etmek için aşağıdaki formülü kullanabilirsiniz. Lütfen şu adımları izleyin:
1. Sonucu yerleştirmek istediğiniz boş bir hücreye aşağıdaki formülü girin.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. Ardından doldurma tutamacını sağa doğru beş hücre ilerletin ve ardından 0 görünene kadar doldurma tutamacını aşağı doğru hücre aralığı boyunca sürüklemeye devam edin; ekran görüntüsüne bakın:
Kutools for Excel ile her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze edin
Excel verilerinizi tek bir sütundan birden fazla sütuna transpoze etmekten bıktınız mı? «Kutools for Excel» yazılımının «Aralığı Dönüştür» özelliği, tüm bu sorunları çözmeniz için burada! İster her 5 satırı, ister belirlediğiniz özel bir sayıda satırı transpoze edin—her şeye hazırız. Esnek satır dönüştürme özelliği sayesinde, tek bir sütundan birden fazla sütuna aktarılacak satır sayısını tamamen serbestçe belirleyebilirsiniz. İşlem son derece basit ve hızlıdır; karmaşık adımlara gerek yoktur—sadece birkaç tıklamayla işiniz halledilir!
«Kutools for Excel» eklentisini yükledikten sonra lütfen şu adımları izleyin:
1. Sütundaki verileri seçin ve ardından «Kutools» > «Aralık» > «Aralığı Dönüştür» seçeneğine tıklayın; ekran görüntüsüne bakın:
2. «Aralığı Dönüştür» iletişim kutusunda, «Dönüşüm Türü» altında «Tek Sütunu Aralığa Dönüştür» seçeneğini işaretleyin ve «Kayıt başına satır» bölümünde «Sabit Değer»i seçin. Ardından «Sabit Değer» kutusuna transpoze etmek istediğiniz sütun sayısını girin (ekran görüntüsüne bakın):
3. Ardından «Tamam» düğmesine tıklayın; açılan kutuda, sonucu çıkartmak için lütfen bir hücre seçin (ekran görüntüsüne bakın):
4. Ardından «Tamam» düğmesine tıklayın; böylece sütundaki verileriniz, aşağıdaki ekran görüntüsünde gösterildiği gibi her 5 satırda bir transpoze edilmiş olacaktır:
VBA kodu ile her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze edin
Formülü doğru şekilde uygulayamıyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.
1. «Microsoft Visual Basic for Applications» penceresini açmak için «ALT» + «F11» tuşlarına basılı tutun.
2. «Ekle» > «Modül» seçeneğine tıklayıp aşağıdaki kodu «Modül» penceresine yapıştırın.
VBA kodu: Her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze edin:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Kodu yapıştırdıktan sonra çalıştırmak için «F5» tuşuna basın; transpoze etmek istediğiniz sütunu seçmenizi hatırlatan bir uyarı kutusu açılacaktır—ekran görüntüsüne bakın:
4. Ardından «Tamam» düğmesine tıklayın ve sonucu yerleştirmek istediğiniz hücreyi başka bir açılır kutudan seçin; ekran görüntüsüne bakın:
5. «Tamam» düğmesine tıklayın; sütundaki veriler, ihtiyacınız olan beş sütuna dönüştürülecektir—ekran görüntüsüne göz atın:
Excel'de her 5 veya n satırı tek bir sütundan birden fazla sütuna transpoze etmek için bu makalede üç etkili yöntem açıklanıyor. Bu yöntemler, Excel araçlarına ve programlamaya olan aşinalık düzeyinize göre değişen veri yeniden düzenleme yaklaşımları sunar. Daha fazla Excel ipucu ve püf noktası keşfetmeye ilgi duyuyorsanız,web sitemizde binlerce eğitim mevcut!
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar