Chuyển số liệu trong nhiều cột, nhiều hàng vào một cột. (1 người xem)

[Chaytui]

Chào các anh chị em trong diễn đàn. Mình cần các bạn gỡ rối cho trường hợp này với.

Mình có số liệu được trình bày trong vài trăm hàng và vài trăm cột (file đính kèm), nay mình muốn chuyển tất cả chúng vào một cột thôi để tiện xắp xếp từ bé đến lớn mà vẫn chưa tìm ra, nhờ các bạn chỉ giáo với .

Mình rất cám ơn.

 

[hungpecc1]

Chào các anh chị em trong diễn đàn. Mình cần các bạn gỡ rối cho trường hợp này với.

Mình có số liệu được trình bày trong vài trăm hàng và vài trăm cột (file đính kèm), nay mình muốn chuyển tất cả chúng vào một cột thôi để tiện xắp xếp từ bé đến lớn mà vẫn chưa tìm ra, nhờ các bạn chỉ giáo với .

Mình rất cám ơn.

Chưa xem file của bạn --> mình đã thấy không hợp lý rồi ---> vài trăm cột x vài trăm hàng --->
Bạn muốn chuyển sang 1 cột

Như vậy cột đó sẽ có vài trăm nghìn dòng <------- với excel 2003 thì sẽ bị tràn đó

Còn nếu là excel 2007 thì dùng code VBA cho khỏe , cũng đơn giản thôi , chỉ cần 2 vòng for... next là ok

 

[hungpecc1]

[GPECODE=vb]
Sub GPE()
Dim tmparr, Arr
Dim iR As Long, jC As Long, i As Long
tmparr = Sheet1.Range("A1").CurrentRegion
ReDim Arr(1 To UBound(tmparr, 1) * UBound(tmparr, 2), 1 To 2)
For jC = 1 To UBound(tmparr, 2)
For iR = 1 To UBound(tmparr, 1)
i = i + 1
Arr(i, 1) = tmparr(iR, jC)
Next
Next
[A1:A65536].Clear
[A1].Resize(UBound(Arr), 2) = Arr
End Sub


[/GPECODE]

 

[ndu96081631]

Chưa xem file của bạn --> mình đã thấy không hợp lý rồi ---> vài trăm cột x vài trăm hàng --->
Bạn muốn chuyển sang 1 cột

Như vậy cột đó sẽ có vài trăm nghìn dòng <------- với excel 2003 thì sẽ bị tràn đó

Còn nếu là excel 2007 thì dùng code VBA cho khỏe , cũng đơn giản thôi , chỉ cần 2 vòng for... next là ok

Dữ liệu ở file của tác giả nằm trên 256 cột và trên 400 dòng
Cũng may không phải là... 6000 dòng, nếu không thì dù Excel 2007 cũng không chứa nỗi chúng (nếu chuyển toàn bộ thành 1 cột)

 

[hungpecc1]

Dữ liệu ở file của tác giả nằm trên 256 cột và trên 400 dòng
Cũng may không phải là... 6000 dòng, nếu không thì dù Excel 2007 cũng không chứa nỗi chúng (nếu chuyển toàn bộ thành 1 cột)

Anh đã dùng thử OF 2013 chưa ? không biết phiên bản này có khả năng chứa bao hàng và cột nhj ?
Em định cài OF 2013 nhưng nghe nói cái ny , crack và active chưa được full + cái này thích hợp dùng cho win 8 nên <----- nên em chưa cài

 

[Chaytui]

Hic, mình đang dùng libreoffice/ubuntu, vận hành không được file bạn hungpecc1 gửi lên Đang download microsoft office để cài máy ảo. Cảm ơn bạn nhiều nhé

 

[Quang_Hải]

[GPECODE=vb]

Bài này mình nghĩ nên dùng for each thì chỉ cần 1 vòng lặp

 

[hungpecc1]

Bài này mình nghĩ nên dùng for each thì chỉ cần 1 vòng lặp

Ý anh là :

[GPECODE=vb]
Sub GPE1()
Dim tmparr, Arr, Item
Dim i As Long
tmparr = Sheet1.Range("A1").CurrentRegion
ReDim Arr(1 To UBound(tmparr, 1) * UBound(tmparr, 2), 1 To 2)
For Each Item In tmparr
i = i + 1
Arr(i, 1) = Item
Next
[A1:A65536].Clear
[A1].Resize(UBound(Arr), 2) = Arr
End Sub
[/GPECODE]