Thêm số 0 vào dãy số điện thoại trong excel thì làm thế nào ạ? (1 người xem)

[bemilo273]

Các anh chị giúp em với:
Em có 1 danh sách số điện thoại hàng nghìn số, nhưng trong lúc nhập dữ liệu số điện thoại vào excel em không chọn fomat cell là text, giờ em muốn thêm số 0 vào đầu các số điện thoại này thì làm thế nào ạ.
Danh sách hàng nghìn số mà em phải gõ lại thì chết ạ

 

[hungpecc1]

Các anh chị giúp em với:
Em có 1 danh sách số điện thoại hàng nghìn số, nhưng trong lúc nhập dữ liệu số điện thoại vào excel em không chọn fomat cell là text, giờ em muốn thêm số 0 vào đầu các số điện thoại này thì làm thế nào ạ.
Danh sách hàng nghìn số mà em phải gõ lại thì chết ạ

cái này dùng macro thì không khó để giải quyết ,nhưng mình hỏi danh sách bạn viết theo 1 cột hay là như thế nào ?

 

[bemilo273]

danh sách em theo 1 cột ạ

 

[MinhKhai]

Các anh chị giúp em với:
Em có 1 danh sách số điện thoại hàng nghìn số, nhưng trong lúc nhập dữ liệu số điện thoại vào excel em không chọn fomat cell là text, giờ em muốn thêm số 0 vào đầu các số điện thoại này thì làm thế nào ạ.
Danh sách hàng nghìn số mà em phải gõ lại thì chết ạ

Ví dụ cột danh sách ĐT là cột A. Thêm 1 cột bên cạnh dãy điện thoại và gõ tại côt này ="0"&A1. Kéo công thức xuống cuối cột. Sau đó copy cột trung gian này Paste Value vào cột danh sách ĐT ban đầu

 

[bemilo273]

Cảm ơn đại ca Minh Khai, rất dễ và nhanh ạ, thế mà em loay hoay mãi

 

[hungpecc1]

Cảm ơn đại ca Minh Khai, rất dễ và nhanh ạ, thế mà em loay hoay mãi

Đang luyên công vba , nên cũng đóng góp 1 giải pháp bằng macro :

bạn bôi đen vùng cần thêm số rồi chay code :

Sub insert0()    
Dim i As Long, tmparr, arr() As String, item
        tmparr = Selection
        ReDim arr(1 To UBound(tmparr, 1))
        For Each item In tmparr
          i = i + 1
          If Len(item) Then arr(i) = 0 & item
        Next
        Selection.NumberFormat = "@"
        Selection = Application.WorksheetFunction.Transpose(arr)
End Sub

 

[bemilo273]

Đang luyên công vba , nên cũng đóng góp 1 giải pháp bằng macro :

bạn bôi đen vùng cần thêm số rồi chay code :

Sub insert0()    
Dim i As Long, tmparr, arr() As String, item
        tmparr = Selection
        ReDim arr(1 To UBound(tmparr, 1))
        For Each item In tmparr
          i = i + 1
          If Len(item) Then arr(i) = 0 & item
        Next
        Selection.NumberFormat = "@"
        Selection = Application.WorksheetFunction.Transpose(arr)
End Sub

Cái code code này em thấy phức tập thế đại ca

 

[hungpecc1]

Cái code code này em thấy phức tập thế đại ca

bạn thử tham khảo file đính kèm

bôi đen vùng cần chèn số 0 ( hay chọn cả cột luôn ) ấn tổ hợp phím ctrl D xem kết quả

 

[Hoàng Trọng Nghĩa]

Các anh chị giúp em với:
Em có 1 danh sách số điện thoại hàng nghìn số, nhưng trong lúc nhập dữ liệu số điện thoại vào excel em không chọn fomat cell là text, giờ em muốn thêm số 0 vào đầu các số điện thoại này thì làm thế nào ạ.
Danh sách hàng nghìn số mà em phải gõ lại thì chết ạ

Tôi sẽ hướng dẫn 1 tuyệt chiêu để định dạng trong trường hợp của bạn!

Chọn cột số đt cần định dạng, bấm tổ hợp phím Ctrl+1 (format cells), chọn thẻ Number, chọn Custom, gõ vào Type cấu trúc như sau:

[<1000000000]0000000000;[>=1000000000]00000000000

Màu xanh gõ 10 số 0 và màu còn lại gõ 11 số 0

============================================================
Mà hình như topic này gửi đâu có đúng Box nhỉ???
OK, bây giờ bạn đã làm được những gì bạn cần rồi đấy!

 

[diunthp]

Hoặc dùng hàmconcatenate("0",A1) sau kéo xuống!

 

[vansulich]

Thêm dấu ' trước số điện thoại là okie

 

[xuan.nguyen82]

Thêm dấu ' trước số điện thoại là okie

Người ta hỏi "thêm số 0" chứ đâu có hoỉ hiển thị số 0 đâu bạn. Mà các câu trả lời trước đã đúng rồi.

 

[ngo minh duc]

Ví dụ cột danh sách ĐT là cột A. Thêm 1 cột bên cạnh dãy điện thoại và gõ tại côt này ="0"&A1. Kéo công thức xuống cuối cột. Sau đó copy cột trung gian này Paste Value vào cột danh sách ĐT ban đầu

a ơi e chỉ e cái này vs nhé
dât kh của e như vậy
0977766232
983623237
0123283332
1683223323
làm sao cho hoàn chỉnh sdt ạ? sdt hoàn chỉnh luôn nhé a như
0977766232
0983623237
0123283332
01683223323
làm sao cho số 0 vào đầu những sdt thiếu

 

[huonglien1901]

a ơi e chỉ e cái này vs nhé
dât kh của e như vậy
0977766232
983623237
0123283332
1683223323
làm sao cho hoàn chỉnh sdt ạ? sdt hoàn chỉnh luôn nhé a như
0977766232
0983623237
0123283332
01683223323
làm sao cho số 0 vào đầu những sdt thiếu

=0&A1

 

[vanthinh3101]

a ơi e chỉ e cái này vs nhé
dât kh của e như vậy
0977766232
983623237
0123283332
1683223323
làm sao cho hoàn chỉnh sdt ạ? sdt hoàn chỉnh luôn nhé a như
0977766232
0983623237
0123283332
01683223323
làm sao cho số 0 vào đầu những sdt thiếu

Giả sử dữ liệu ở cột A. Bạn dùng thử hàm:

B1=IF(LEFT(A1,1)="0",A1,0&A1)

 

[ketxu]

B1=IF(LEFT(A1;1)="0";A1;"0"&A1)

 

[befaint]

a ơi e chỉ e cái này vs nhé
dât kh của e như vậy
0977766232
983623237
0123283332
1683223323
làm sao cho hoàn chỉnh sdt ạ? sdt hoàn chỉnh luôn nhé a như
0977766232
0983623237
0123283332
01683223323
làm sao cho số 0 vào đầu những sdt thiếu

=RIGHT(A1+10^12,LEN(1*A1)+1)

 

[ndu96081631]

Thấy vầy cũng được: ="0"&--A1