Viết la6i để đỡ tốn thời gian hơn xíu:
Sub Cot_SangDong()
Dim Rws As Long, W As Integer, Tmr As Double
Dim Rng As Range, sRng As Range, Cls As Range
Dim MyAdd As String
Rws = [B1].CurrentRegion.Rows.Count
Set Rng = [A1].Resize(Rws): Tmr = Timer()
Application.ScreenUpdating = False
For Each Cls In Range([e2], [e2].End(xlToRight))
ReDim Arr(1 To Rws, 1 To 1)
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
W = W + 1: Arr(W, 1) = sRng.Offset(, 1).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Cls.Offset(1).Resize(W).Value = Arr(): W = 0
End If
Next Cls
Application.ScreenUpdating = True
MsgBox Timer() - Tmr
End Sub
Sub ColToRows()
Dim SArr(), RArr(), LastRw As Long, Rws As Long
Dim k As Long, j As Long
Application.ScreenUpdating = False
t = Timer
LastRw = [A100000].End(xlUp).Row
SArr = Range("B2:B" & LastRw).Value
Rws = UBound(SArr, 1) / 22 + 1
Range("E3:Z10000").ClearContents
ReDim RArr(1 To Rws, 1 To 22)
k = 1
For i = 1 To UBound(SArr, 1)
j = j + 1
If j = 23 Then j = 1: k = k + 1
RArr(k, j) = SArr(i, 1)
Next
Cells(3, 5).Resize(k, 22) = RArr
Application.ScreenUpdating = True
MsgBox Timer - t
End SubChạy code dưới đây
Sub chuyenCotDong()
Dim Nguon
Dim Kq
Dim i As Long, j As Long, k As Long, t As Long
Nguon = Sheet1.Range("A2").CurrentRegion
ReDim Kq(1 To UBound(Nguon), 1 To 1)
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Nguon)
If .exists(Nguon(i, 1)) = 0 Then
.Item(Nguon(i, 1)) = 1000000 + .Count
ReDim Preserve Kq(1 To UBound(Nguon), 1 To .Count)
Kq(1, .Count) = Nguon(i, 2)
Else
k = .Item(Nguon(i, 1)) / 1000000 + 1
j = .Item(Nguon(i, 1)) Mod 1000000 + 1
.Item(Nguon(i, 1)) = .Item(Nguon(i, 1)) + 1000000
Kq(k, j) = Nguon(i, 2)
If t < k Then t = k
End If
Next i
Sheet1.Range("D1").Resize(1, .Count) = .Keys
Sheet1.Range("D2").Resize(t, .Count) = Kq
Sheet1.Range("D2").Resize(t, .Count).Columns.AutoFit
End With
End SubAnh ơi em cảm ơn nhiều lắm ạ. nhấn nút là nhấn nút gì ạ. Em thấy a dùm hàm và thường thì em sẽ cầm chuột kéo cho tới hết ạ. có nút nào bấm phát ra không anh nhỉ. hihi
Ấn vào cái chỗ màu xanh
Vâng. em tấm chiếu mới ạ. Em xem rồi a ơi. không có cái đó. Nhưng thôi cũng ko sao ạ. em kéo tay có kết quả là mừng rồi. em cảm ơn a nhiều nhé. Cảm ơn tất cả mọi người.
Chỉ đúng một phần khi thấy được kết quả thôi, nếu không dựa vô quy luật của cột A thì còn số 22 nó chả có ý nghĩa gì, quy luật nó là sự lặp đi lặp lại từ chữ q đến v là 22 Cell, căn cứ vào quy luật mới lấy dữ liệu từ cột B để đưa vào phần kết quả bắt đầu từ cột E: Zthấy có 22 cột,hổng bít phải hok
Tiêu đề kết quả (hình bài 1) có sẵn 22 cột. Quy luật cột A (xem như tiêu đề) cũng chu kỳ 22. Đề bài sao làm vậy á.
