Em muốn sắp xếp dữ liệu ở sheet 1 về như các sheet ltau47 và ltau48, mong mọi người chỉ giúp.
https://docs.google.com/file/d/0B-NAn4foYzpAZThGSGtVVGV3bDg/edit?usp=sharing
Chưa xem kỹ bài của bạn, nhưng theo mình bài này phải dùng VBA, mình viết 1 đoạn code sơ qua bạn tham bảo và tùy biến với từng trường hợp dữ liệu của bạn:
Xem file đính kèm : ( điền tên kênh bạn muốn liệt kê vào ô F3--> xong rồi chạy code )
[GPECODE=vb]Option ExplicitSub List()
Dim tmparr, arr(), Tmp, Item, sArr()
Dim i As Long, j As Long, iR As Long, n As Byte, st1, st2
tmparr = Range("A1", [A655356].End(3)).Value
ReDim arr(1 To 3, 1 To 2)
arr(1, 1) = Tmp: arr(1, 2) = "VT"
Tmp = CStr(Trim([F3]))
For Each Item In tmparr
iR = iR + 1
If CStr(Trim(Item)) = Tmp Then
n = n + 1
arr(2, 2) = [B:B].Cells(iR + 1).Value
arr(3, 1) = "X": arr(3, 2) = "Z"
For j = iR To UBound(tmparr, 1)
If Trim(tmparr(j, 1)) = "PROFILE" Then st1 = j
If Trim(tmparr(j, 1)) = "LEVEL PARAMS" Then st2 = j: Exit For
Next
sArr = Range("A" & st1 & "", "B" & st2 & "").Value
Range("H1").Resize(3, 2).Offset(, 3 * n - 3) = arr
Range("H4").Resize(UBound(sArr, 1), 2).Offset(, 3 * n - 3) = sArr
End If
Next
End Sub
[/GPECODE]
