Cảm ơn bạn! Mình làm theo File thật của tác giả thôi. Sai thì tác giả tự chịu vì File mà mình làm chính là File thật của tác giả. Các cột mình thấy có cùng cấu trúc.
Sub noi()
Dim a(), cell As Range
ReDim a(1 To Selection.Count, 1 To 1)
For Each cell In Selection
If cell <> "" Then
j = j + 1
a(j, 1) = cell
End If
Next
Sheets.Add after:=Sheets(Sheets.Count)
[A1].Resize(j, 1) = a
End SubChắc bạn hiểu nhầm ý tác giả rồi, tác giả muốn ghép các cột lại với nhau cơ. Code này của bác nó lại ghép các dòng lại với nhau !
Ở office 2003 bạn xóa đi 1 số dòng nhưng code của bạn vẫn chạy sai là ở chỗ này
rng.Offset(0, 1).Resize(j, m).ClearContentsrng(1,1).Offset(0, 1).Resize(j, m-1).ClearContentsrng(1,2).Resize(j, m-1).ClearContentsTôi thử rồi nên mới nói vậy. Bạn Test thử lại xem.
rng.Offset(0, 1).Resize(j, m).ClearContentsTrời ạ. Tôi chỉ nói code của bạn không xóa vùng B1:IV641 được là do thiếu cột chứ không phải thiếu dòng.
On Error Resume NextOk. Miễn là tôn trọng nhau là được, cùng học hỏi thôi mà. Tôi cũng đã học được 1 số cái ở bạn.
Public Sub ghep_cot()
Dim rng As Range, i As Long, j As Long, k As Double, m As Long
Application.EnableEvents = False
On Error Resume Next
Set rng = Application.InputBox("Chon vung can ghep cot:", "THONG BAO", Type:=8)
j = rng.Rows.Count
m = rng.Columns.Count
k = j
For i = 2 To m
rng(k, 1).Offset(1).Resize(j) = rng(1, i).Resize(j).Value
k = k + j
Next i
Application.EnableEvents = True
rng(1, 2).Resize(j, m - 1).ClearContents
End SubTopic này chưa giải quyết xong vấn đề nữa, bạn làm từng bước để khắc phục nhé!
Em mới học excel nên còn gà quá,công thức của bác Mr.Bum đúng rồi nhưng có cao thủ nào cắt nghĩa cho em hiểu cái công thức này được không ạ? cảm ơn mọi người!
Bạn đọc lại topic này và tải File của bạn minhhung1205 nhé. File mình viết chưa tổng quát lắm.Mình thấy file này rất hợp với cái mình đang cần. Nhưng bạn có thể sửa code lại 1 tí để ghép cột lại thì không có ô trống được không nhỉ. Nếu được thì cảm ơn bạn nhiều lắm
=offset($b$1,mod(row(a3),3),int(row(a3)/3)-1)Bạn đưa file lên đi tôi sẽ giúp.
Với dữ liệu của bác, tôi test bằng code này thì thời gian rất nhanh(mặc dù code này chưa dùng mảng)
Public Sub ghep_cot()
Dim rng As Range, i As Long, j As Long, k As Double, m As Long
Application.EnableEvents = False
Set rng = Application.InputBox _
("Chon vung can ghep cot:", "THONG BAO", Type:=8)
j = rng.Rows.Count
m = rng.Columns.Count
k = j
For i = 2 To m
rng(k, 1).Offset(1).Resize(j) = rng(1, i).Resize(j).Value
k = k + j
Next i
Application.EnableEvents = True
rng.Offset(0, 1).Resize(j, m - 1).ClearContents
End Sub
Bài của bạn nếu các cột có số lượng dữ liệu không đồng nhất thì chưa ổn lắm, sẽ tồn tại dòng trống
'Đầu sub
Application.ScreenUpdating = False
'Cuối sub
Application.ScreenUpdating = trueAnh Ninh có thể giúp em giải thích tại sao code của chú be09 lại chậm như vậy nhỉ. Theo em thì cách thức hoạt động của cả 2 code(của em và chú be09) đều như nhau mà.
