Của Jindo nè
Sub Test5() Dim Dic As Object, Arr(), CSDL(), w As Long, k As Integer
Dim head(), iStr As String, Cls As Range
Application.ScreenUpdating = False
Set Dic = CreateObject("Scripting.Dictionary")
CSDL() = Sheets("Original").Range(Sheet1.[A2], Sheet1.[A2].End(xlDown)).Resize(, 7).Value
ReDim Arr(1 To 10000, 1 To UBound(CSDL, 2))
head = Sheets("Original").Range("A1:G1").Value
For i = 1 To UBound(CSDL(), 1)
iStr = CStr(CSDL(i, 1))
If Not Dic.exists(iStr) Then
Dic.Add iStr, w
w = w + 5
For k = 1 To UBound(CSDL(), 2)
Arr(w, k) = CSDL(i, k)
Arr(w - 1, k) = head(1, k)
Next k
Else
w = w + 1
For k = 1 To UBound(CSDL(), 2)
Arr(w, k) = CSDL(i, k)
Next k
End If
Next i
With Sheets("KetQua").Range("A1:G1")
.Resize(10000).Clear
.Resize(w + 9).Value = Arr()
.Resize(w + 3).Borders.LineStyle = 1
.Resize(3).Delete
End With
For Each Cls In Sheets("KetQua").Range("A1").Resize(w)
If Left(Cls, 6) = "INV-NO" Then
With Cls.Resize(, 7)
.Interior.ThemeColor = xlThemeColorAccent3
.Interior.TintAndShade = 0.799981688894314
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
End If
Next Cls
Application.ScreenUpdating = True
End Sub
Option Explicit
Dim Ar0(), Arr(), dArr()
Sub Them3Dong()
Dim Rws As Long, J As Long, W As Long
ReDim Ar0(1 To 1, 1 To 7)
Rws = [B1].CurrentRegion.Rows.Count
Ar0() = [A1:G1].Value
Arr() = [A2].Resize(Rws + 1, 7).Value
ReDim dArr(1 To 4 * Rws, 1 To 7)
W = 1: TDe W
For J = 1 To UBound(Arr())
W = W + 1: dArr(W, 3) = Arr(J, 3)
dArr(W, 1) = Arr(J, 1): dArr(W, 2) = Arr(J, 2)
If Arr(J + 1, 1) <> Arr(J, 1) And Arr(J + 1, 1) <> "" Then
W = W + 4: TDe W
ElseIf Arr(J + 1, 1) = Arr(J, 1) Then
dArr(W, 1) = Arr(J, 1): dArr(W, 2) = Arr(J, 2)
dArr(W, 3) = Arr(J, 3)
End If
If Arr(J + 1, 1) = "" Then Exit For
Next J
[r1].Resize(W, 7).Value = dArr()
End Sub[B]Sub TDe(Rw As Long)
[/B]Dim J As Byte
For J = 1 To 7
dArr(Rw, J) = Ar0(1, J)
Next J
[B]End Sub
[/B]1. Bác ChanhTQ cho em hỏi, trong trường hợp mà chỉ insert 3 dòng thôi, không insert thêm cả dòng title thì có cách nào để không phải viết thêm một sub phụ cho trường hợp đặc biệt nữa không ạ? Lấy ngay ví dụ ở trên: for j...next, w chạy theo j, nhưng lại có một trường hợp đặc biệt của w là khi w = 1. Vậy làm sao để mình xử lý trường hợp này ạ?
Em cũng nghĩ kiểu đang "tẩu hỏa" như bác nói, điên cái đầu
Cái này thì hôm trước lúc ban đầu em cũng tự mình giải thích như vậy, nhưng rồi đọc tiếp đọc tiếp... lại "tẩu ma", xong quay lại thì lại không nghĩ cái đầu tiên mình nghĩ là đúng (lần này là tẩu của tẩu). <<== chắc bác đọc xong cũng tẩu luôn
.
