Nhờ các Anh/ Chị viết giúp code loại bỏ số 0 trước hai số tự nhiên

[tranhoainam9701]

Mong các bạn giúp đỡ cho!
Anh/ chị code giúp nội dung đã ghi kèm trong file gửi lên ak. Xin cám ơn trước ak.

 

[snow25]

Mong các bạn giúp đỡ cho!
Anh/ chị code giúp nội dung đã ghi kèm trong file gửi lên ak. Xin cám ơn trước ak.

Cần gì code cho mệt bạn.Bôi đen toàn bộ rồi nhìn về góc bên trái cao nhất có cái ô vàng kích vào đấy chon Convert to Number là xong.

 

[hvnhpro]

bạn thử dùng công thức sau lồng vào xem được không
=value(ô dữ liệu)
vd =value(b2)

 

[Thóc Sama]

Mong các bạn giúp đỡ cho!
Anh/ chị code giúp nội dung đã ghi kèm trong file gửi lên ak. Xin cám ơn trước ak.

Kết quả mong muốn cho cũng sai nữa kìa!
Mà muốn chơi khó thì chơi nhá!

Sub loai()
Dim Arr(), Res(), i As Long, j As Long
With Sheet1
Arr = .Range("B2:N13").Value
ReDim Res(1 To 13, 1 To 14)
For i = 1 To 12
    For j = 1 To 13
        If Left(Arr(i, j), 1) = 0 Then
            Res(i, j) = Right(Arr(i, j), 1)
        Else
            Res(i, j) = Arr(i, j)
        End If
    Next j
Next i
.Range("P2").Resize(12, 13).Value = Res
End With
End Sub

 

[solomon2211]

Mong các bạn giúp đỡ cho!
Anh/ chị code giúp nội dung đã ghi kèm trong file gửi lên ak. Xin cám ơn trước ak.

Chọn vùng dữ liệu, bấm Ctrl+Shift+R.

 

[BuiQuangThuan]

Cần gì code cho mệt bạn.Bôi đen toàn bộ rồi nhìn về góc bên trái cao nhất có cái ô vàng kích vào đấy chon Convert to Number là xong.

Cái này là nhanh nhất này

 

[VetMini]

Cái này là nhanh nhất này

Cái này nhanh hơn:
. . .

 

[befaint]

Không làm gì cả là siêu nhanh nhất.
Bởi bảng số chỉ có các số có 2 ký tự số, thì trước nó làm gì có gì đâu mà bỏ.

 

[VetMini]

Không làm gì cả là siêu nhanh nhất.
Bởi bảng số chỉ có các số có 2 ký tự số, thì trước nó làm gì có gì đâu mà bỏ.

Đọc và hiểu đâu có gì là khó.
Đọc và mò được chủ thớt muốn làm gì mới là kinh nghiệm độc đáo của dân giúp bài GPE.

Sốt sắng quá khiến người ta đâm lười biếng và ỷ lại. Điển hình nhất là cái tật ví dụ để minh họa vấn đề cũng cẩu thả, sai tùm lum.

 

[tranhoainam9701]

Kết quả mong muốn cũng sai nữa kìa!"" ":::": \
Mà muốn chơi khó thì chơi nhá!

 Sub loai ()
Dim Arr (), Res (), i As Long, j As Long
Với Sheet1
Arr = .Range ("B2: N13"). Giá trị
ReDim Res (1 đến 13, 1 đến 14)
Đối với i = 1 đến 12
    Đối với j = 1 đến 13
        If Left (Arr (i, j), 1) = 0 Then
            Res (i, j) = Right (Arr (i, j), 1)
        Khác
            Res (i, j) = Arr (i, j)
        Kết thúc nếu
    Tiếp theo j
Tiếp theo tôi
.Range ("P2"). Thay đổi kích thước (12, 13) .Value = Res
Kết thúc với
Kết thúc Sub
[/MÃ SỐ]

[ATTACH type="full" alt="1657771750073.png"]278844[/ATTACH]
[/QUOTE]
Trước tiên cám ơn Anh đã code giúp. Anh thông cảm vì bảng kết quả mong muốn không nhìn kĩ trước khi gửi bài. Lần sau sẽ cẩn trọng hơn

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

Chọn dữ liệu vùng, nhấn Ctrl + Shift + R.

Cám ơn Anh đã giúp đỡ, công thức rất hay ạ, tại dữ liệu nhiều nên em mới nhờ viết code ak

 

[Hoàng Tuấn 868]

ak

Tay này chắc xem phim chiến đấu nhiều, toàn vác súng "ak" ra bắn.