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.
file: https://mediafire.zendesk.com/attachments/token/Nk80ZRMspX1u50VbQNGKtu5cn/?name=Book1.xlsm
Mình thử bỏ lệnh IF đi thì marco chạy nhưng copy 2 lần, hic
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, 17).Value = Sheets(j).Range("A3").Resize(lr_j, 17).Value
End If
Next j
