d2 lớp chiềuNhờ AE GPE giúp hàm lọc dữ liệu Thời khóa biểu (Sáng và Chiều)
Chào thân ái đoàn kết.
=IF(ISBLANK($B2),"",HLOOKUP($B2,TKBLop_chieu!$A$1:$AS$399,MATCH(D$1,TKBLop_chieu!$A$1:$A$399,0)+$C2-1,0))
=IF(ISBLANK($B2),"",HLOOKUP($B2,TKBLop_sang!$A$1:$AD$300,MATCH(D$1,TKBLop_sang!$A$1:$A$300,0)+$C2-1,0))
Option Explicit
Sub LocTKB()
Dim Sh As Worksheet, Cls As Range
Dim jJ As Long, Tt As Byte, Lp As Byte
Sheets("TKB_Sg").Select
Set Sh = ThisWorkbook.Worksheets("Loc_Sg")
Lp = 1
For Each Cls In Range([C1], [C1].End(xlToRight))
Sh.Cells(Lp * 5 - 3, "B").Value = Cls.Value
Tt = 4
For jJ = 2 To 31 Step 5
Sh.Cells(Lp * 5 - 3, Tt).Resize(5).Value = Cells(jJ, Cls.Column).Resize(5).Value
Tt = Tt + 1
Next jJ
Lp = Lp + 1
Next Cls
End Sub