Nhờ xem giúp lỗi đoạn code sau với. Nếu copy range của từng sheet sang sheet("DSACH") thì có vẻ hơi lâu nên mình dùng value = value nhưng nó ko chạy.
Hoặc có cách nào nhanh hơn copy range từng sheet sang sheet"(DSACH") không.
Thanks
Dim SoSheet As Long
SoSheet = ActiveWorkbook.Sheets.Count
For j = 2 To SoSheet
lr_j = Sheets(j).Cells(Rows.Count, 2).End(xlUp).Row
lr = Sheets("DSACH").Cells(Rows.Count, 2).End(xlUp).Row
If ActiveSheet.Name = "DSACH" Or ActiveSheet.Name = "SOLIEU" Then
Cells(1, 1).Select
Else
Sheets("DSACH").Cells(lr + 1, 1).Resize(lr_j - 2, 17).Value = Sheets(j).Range("A3").Resize(lr_j, 17).Value
End If
Next j