em lấy dữ liệu chạy thành ng nhưng khi em copy maxco kẻ khung cho dongcuoi+1sheet2range(

chào bạn bạn có thể đẩy file lên được không?

em gửi file qua mail rồi thầy ạ. Thầy xem giúp em với ạ. em cảm ơn ạ

Chào bạn bạn vào hướng dẫn đính kèm rồi gửi file lên bạn nhé.

em gui file a

Sub them_moi1()
Dim dongcuoi As Long, dc As Long
dongcuoi = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheet2.Range("A" & dongcuoi).Value = Sheet1.Range("A3").Value
Sheet2.Range("B" & dongcuoi).Value = Sheet1.Range("D3").Value
Sheet2.Range("C" & dongcuoi).Value = Sheet1.Range("A5").Value
Sheet2.Range("D" & dongcuoi).Value = Sheet1.Range("C5").Value
Sheet2.Range("E" & dongcuoi).Value = Sheet1.Range("D5").Value
Sheet2.Activate
dc = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
If (dc < 3) Then Exit Sub
Sheet2.Range("A3:E" & dc).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B14").Select
Sheet1.Range("A3:C3").ClearContents
Sheet1.Range("d3").ClearContents
Sheet1.Range("A5").ClearContents
MsgBox " thanh cong "
Sheet1.Activate
End Sub