Sub Button2_Click()
Dim ShNhap As Worksheet, ShXuat As Worksheet, ShTheKho As Worksheet
Dim arr(), kq(), i As Long, a As Long, lr As Long
Dim TuNgay As Date, DenNgay As Date, TenSP As String
Set ShNhap = Sheets("NHAPKHO")
Set ShXuat = Sheets("XUATKHO")
Set ShTheKho...