Bạn để ý 2 phương thức thực hiện của 2 bài #37 và #38 là hoàn toàn khác nhau
Em nghĩ đơn giản là:
Thử dùng mãng và do loop, nhớ chọn vùng trước khi chạy code.(Mới thử có vài cột không biết đúng không có gì góp ý đùng nặng lời nhé!)
Sub ghepcot()
Dim arr(), Res(1 To 65536, 1 To 1), k
arr = [B5].Resize(1000, 500).Value
For Each Item In arr
If Item <> "" Then
k = k + 1
Res(k, 1) = Item
End If
Next
[A5].Resize(k) = Res
End Sub
Sub GPE01(CotCuoi As Integer, DongCuoi As Long, Rng As Range, Arr, ByRef Stt As Long)
Dim i As Long
For i = 1 To DongCuoi - 4
Arr(Stt, 1) = Rng(i, 1)
Stt = Stt + 1
Next
End SubSub GPE()
Dim L_Col As Integer
Dim L_Row As Long
Dim Stt As Long
Dim Arr(1 To 10480000, 1 To 1)
Dim Rng As Range
L_Col = Range("XFD4").End(xlToLeft).Column
Stt = 1
For i = 1 To L_Col
L_Row = Cells(1048000, i).End(xlUp).Row
Set Rng = Range(Cells(5, i), Cells(L_Row, i))
Call GPE01(L_Col, L_Row, Rng, Arr, Stt)
Next
Sheet2.Range("A5").Resize(Stt, 1) = Arr
End SubHình như tham số Cotcuoi của bạn thừa thì phải.
Sub ghepcot()
Dim arr(), Res(1 To 65536, 1 To 1), k, item
With ActiveSheet.UsedRange
arr = [B5].Resize(.Rows.Count, .Columns.Count).Value
For Each item In arr
If item <> "" Then
k = k + 1
Res(k, 1) = item
End If
Next
.Parent.[A5].Resize(k) = Res
End With
End Subđúng là dư thừa 1 tham số, do ban đầu thiết kế cứ nghĩ là nên có tham số cột, nhưng mà khi thiết kế lại thì thấy nó vô ích, và cũng quên sửa lại bài luôn
Góp ý cho bạn:
Còn cái gì ngược ngược nữa không?
Oh! Excellent! cảm ơn anh HieuCD! Cho em hỏi nếu muốn xếp thành 100 hàng, mỗi hàng 10 số thì làm thế nào ạ?
xin chào ạ, làm ơn hướng dẫn mình nối 30 cột thành một cột số liệu trong bảng sau với ạ, cảm ơn ạ.
cám ơn bạn, đúng công thức mình đang cần.
Bạn xem file.
da tra loi ban
Nếu theo bạn miêu tả thì:
Bạn không thể dùng excel 2003 vì excel 2003 chỉ có 65536 --> không đủ số dòng trên 1 cột để chứa dữ liệu của bạn (300*600=180000 dòng) --> bạn phải dùng excel 2007 trở lên.
Mình chỉnh lại chút file của bạn chuot0106 và đổi sang excel 2010 (file đính kèm).
Cách dùng:
1. Đặt con trỏ vào cột bạn muốn đặt kết quả (VD: ô A1).
2. Nhấn nút "GHÉP CỘT"
3. Bôi đen các cột cần nối (VD: A1:IV641) --> nhấn nút ok.
@Chuot0106, Xin lỗi đã sửa file của bạn. Nhưng với dữ liệu nhiều như vậy thì nên dùng mảng sẽ nhanh hơn.
Mà hình như kết quả cũng chưa chính xác thì phải(hay bạn đang hiểu sai ý tác giả ?).
bác có thể chuyển code của bác thành dạng Funcition để viết với câu lệnh là "=ghep_cot('quét chọn khu vực cần ghép)" - Giá trị nó trả về ngay tại nơi gõ hàm đó được không ạ và thêm cái nữa là nó bỏ đi các giá trị rỗng.
