Sub Sochitiet()
Dim Cll As Range, vung As Range, i As Long
Set vung = Sheet1.Range("F1:F" & Sheet1.Range("F65000").End(xlUp).Row)
i = 13
i = i + 1
Shee4.Range("A14:J24,I13:J13,I25:J25").ClearContents
Sheet4.Range("A14:J24").EntireRow.Hidden = False
For Each Cll In vung
If Cll =...