Xóa dấu phấy ở cuối ô (khi có) (2 người xem)

[jubinell]

Chào các bạn,

Mình có một sê ri các ô chứa các ký tự khác nhau. Có một số ô có ký tự cuối là giấu phẩy. Mình muốn dùng Find and Replace để xóa các dấu phẩy này (tìm bằng Regex chăng?). Các bạn chỉ mình đi?

Lưu ý: Một ô có thể có 0, 1, hoặc nhiều giấu phẩy. Mình chỉ muốn xóa dấu phẩy khi nó ở cuối ô.
Cuối ô ở đây có nghĩa là nó là ký tự cuối cùng của ô đó (chứ ko phải nghĩa là nó ở cuối một hàng chữ nào đó trong ô).

Cám ơn trước nhé!

 

[thanh_tks]

Bạn thử cái này xem!
Nếu cột A1 là dãy số có dấu phẩy thì cột
B1=IF(RIGHT(A1,1)=",",REPLACE(A1,LEN(A1),1,""),A1)
Cũng chưa hoàn hảo cho lắm!

 

[thivantan]

Hoặc bạn có thể sử dụng công thức:
B1=IF(RIGHT(A1,1)=",",MID(A1,1,LEN(A1)-1),A1)
Chúc vui

 

[cadafi]

Thêm một cách cùi mía nữa:

=IF(RIGHT(A1)=",",LEFT(A1,LEN(A1)-1),A1)

 

[ChanhTQ@]

Thêm 1 cách nữa & thêm 1 ưu điểm

Option Explicit
Sub ThayDauFay()
 Dim Rng As Range, sRng As Range, DDai As Byte
 Dim MyAdd As String:               Const Fy As String = ","
 
 Set Rng = Selection
 Set sRng = Rng.Find(Fy, , xlFormulas, xlPart)
 If sRng Is Nothing Then
   MsgBox "Nothing"
 Else
   MyAdd = sRng.Address
   Do
      Do
         If Right(sRng.Value, 1) = Fy Then
            sRng.Value = Left(sRng.Value, Len(sRng.Value) - 1)
         Else
            Exit Do
         End If
      Loop
      Set sRng = Rng.FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub

Đó là có vài dấu fãy fết cuối đều xóa tất tần tật!

 

[gaunuicr]

thank_tks:
Bạn thử cái này xem!
Nếu cột A1 là dãy số có dấu phẩy thì cột
B1=IF(RIGHT(A1,1)=",",REPLACE(A1,LEN(A1),1,""),A1)
Cũng chưa hoàn hảo cho lắm!
thivantan:
Hoặc bạn có thể sử dụng công thức:
B1=IF(RIGHT(A1,1)=",",MID(A1,1,LEN(A1)-1),A1)
Chúc vui
cadafi:
Thêm một cách cùi mía nữa:
PHP Code:
=IF(RIGHT(A1)=",",LEFT(A1,LEN(A1)-1),A1)

Nếu cuối ô mà có dấu "," thì cũng dễ có khoảng trắng lắm. Nên dùng trim(A1) cho chắc ăn!

 

[thivantan]

Nếu cuối ô mà có dấu "," thì cũng dễ có khoảng trắng lắm. Nên dùng trim(A1) cho chắc ăn!

Bạn đọc kỹ yêu cầu của bạn Jubinell nhé bạn ấy đã nói rõ: "Cuối ô ở đây có nghĩa là nó là ký tự cuối cùng của ô đó" nên không còn khoảng trắng nữa. Chúc vui.http://www.giaiphapexcel.com/forum/member.php?u=253154