Tüm satırları birden çok satıra bölmek için VBA makrosu
Bu makro ile tüm satırları çoklu satıra bölersiniz. Bölme işleminden sonra istediğiniz sütunu seçebilirsiniz. sadece iSplit
ilk satırın değerini değiştir . Belirli bir sınırlayıcı kullanmıyorum, yalnızca sütun sayısı.
Her adımı yorumladım. Makroyu kişisel ihtiyaçlarınıza göre ayarlamak kolaydır.
- Excel ve VBA editörünü Alt+ ile açınF11
- Sol bölmede, kodu verilerinizin yerleştirildiği sayfanın altına yapıştırın
- İlk iki satırı ihtiyaçlarınıza göre değiştirin
- Makroyu ile çalıştır F5
Const iSplit = 4 '## how many columns do you want after splitting
Sub transposeColumn()
'## search the last row to know how many rows we have to iterate through
iLastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'## begin to loop through every row. Begin at last row and go upwards
For r = iLastRow To 1 Step -1
'## search the last column in the current row
iLastCol = Rows(r).Find("*", Cells(r, 1), , , xlByColumns, xlPrevious).Column
'## calculate how many new rows we need to insert for this row
iNewRows = WorksheetFunction.RoundUp(iLastCol / iSplit, 0) - 1
'## begin to copy and insert new rows, one by one
For c = 1 To iNewRows
'## insert a new blank line where we can copy values to
Rows(r + c).Insert Shift:=xlDown
'## set the source range for easier access later
Set rngSrc = Range(Cells(r, iSplit * c + 1), Cells(r, iSplit * c + iSplit))
'## copy and paste the range
rngSrc.Copy Destination:=Cells(r + c, 1)
'## clear all cells which we have just copied
rngSrc.Clear
Next c
Next r
End Sub
echo "Your string" | perl -pe 's/([^;]*);([^;]*);([^;]*);([^;]*);?/$1,$2,$3,$4\n/g'
ve sonucu CSV olarak içe aktarın. Gerçekten LO / OO / Excel kullanan ve başka bir şey kullanan bir çözüme mi ihtiyacınız var?