code VBA copy số điện thoại sang sheet khác (giữ định dạng text)

[LuuGiaPhúc]

Nhờ các anh chị chỉ giúp em cách copy cột A (chứa số điện thoại ), Cột B là số CMND / CCCD từ sheet1 sang Sheet2 , giữ nguyên định dạng TEXT
dòng lệnh của em chuyển qua Sheet 2 nó mất hết mấy số 0

LastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
Sheet2.Range("A1:B" & LastRow).ClearContents
Sheet2.Range("A1:B" & LastRow) = Sheet1.Range("AA10:AM" & LastRow).Value
Em cảm ơn ạ

 

[doccohaiau]

LastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
Sheet2.Range("A1:B" & LastRow).ClearContents
Sheet2.Range("A1:B" & LastRow).NumberFormat="@" ''' thêm đoạn này
Sheet2.Range("A1:B" & LastRow) = Sheet1.Range("AA10:AM" & LastRow).Value

B thử cái này xem nhé. M không nhớ. Tại cái vụ làm trên range này cực ghét

 

[HeSanbi]

Bạn sửa đoạn này:
Sheet1.Range("AA10:AM" & LastRow).Value
Thành:
Application.Evaluate("""'"" & '" & Sheet1.name "'!AA10:AB" & LastRow + 10)

 

[LuuGiaPhúc]

LastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
Sheet2.Range("A1:B" & LastRow).ClearContents
Sheet2.Range("A1:B" & LastRow).NumberFormat="@" ''' thêm đoạn này
Sheet2.Range("A1:B" & LastRow) = Sheet1.Range("AA10:AM" & LastRow).Value

B thử cái này xem nhé. M không nhớ. Tại cái vụ làm trên range này cực ghét

Cảm ơn bạn nhiều nhé. Mình đã làm được theo cách của bạn

 

[Hoàng Trọng Hữu]

Bạn xem code Ado nó có giúp được bạn ko nhé. Thấy nó chạy cũng lẹ, nên góp chút ý,

 

[LuuGiaPhúc]

Bạn sửa đoạn này:
Sheet1.Range("AA10:AM" & LastRow).Value
Thành:
Application.Evaluate("""'"" & '" & Sheet1.name "'!AA10:AB" & LastRow + 10)

code báo lỗi , bạn ơi

 

[befaint]

Khiếp, làm gì mà gớm thế.

Chỉ có mỗi việc bé tí tẹo tèo teo là:
Ở sheet2, lấy tay cầm chuột quét chọn 2 cột A:B rồi định dạng nó kiểu Text. Từ giờ cứ thế chạy thôi cũ thôi, không cần làm gì sứt.

 

[LuuGiaPhúc]

Bạn xem code Ado nó có giúp được bạn ko nhé. Thấy nó chạy cũng lẹ, nên góp chút ý,

cảm ơn bạn nhé, code chạy khá nhanh

Bài đã được tự động gộp: 22/9/21

oh, đơn giản thế thôi :d mà mình cứ nghĩ đâu xa, tức là mình định dạng cột đích theo TEXT sẵn rồi code đưa value qua là nó theo dạng format của cột đích .

Khiếp, làm gì mà gớm thế.

Chỉ có mỗi việc bé tí tẹo tèo teo là:
Ở sheet2, lấy tay cầm chuột quét chọn 2 cột A:B rồi định dạng nó kiểu Text. Từ giờ cứ thế chạy thôi cũ thôi, không cần làm gì sứt.