• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çoklu satırları tek sütun yapmak

  • Konbuyu başlatan Konbuyu başlatan AD2008
  • Başlangıç tarihi Başlangıç tarihi
Katılım
19 Mart 2020
Mesajlar
2
Excel Vers. ve Dili
2013 Türkçe
Merhaba arkadaşlar sizden bir ricam var.

____A____B____C____D____E____F____G
1___i____ii_____iii____iv___v____vi____vii
2__viii___ix____x_____xi___xii___xiii__xiv
3___...___...____...____...____...____...____...
4___...___...____...____...____...____...____...
5___...___...____...____...____...____...____...

bu tabloyu i, ii, iii, iv, v, vi, vii, viii, ix, x, xi, xii, xiii ........ şekilden sıralamak istiyorum. bunun için bir makro yazabilir misiniz?

Bu konudaki gibi değil burada tek sütuna getirirken A sütununu aşağı doğru sıraladıktan sonra B sütununu sıralıyor. ben 1. satırı alt alta yazdıktan sonra 2. satırı alt alta yazsın istiyorum.

bu konuda bir yardımınız olursa çok mutlu olurum.
 
Kod:
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

cevap gelmeyince kendim buldum arkadaşlar. buyrun. herkes kullansın
 
Geri
Üst