Excel: Hàm loại bỏ ký tự đặc biệt trong chuỗi bằng VBS

(Anhgolden's Blog) - Chia sẻ Hàm VB loại bỏ các ký tự đặc biệt trong chuỗi.

Công thức = RemoveSpecial([Chuỗi])

Thực hiện: Alt-F11 >> Insert Module >> Chèn đoạn Code sau:

Function RemoveSpecial(Chuoi As String) As String

Dim i As Integer
Dim Kytu As String
Dim Ketqua As String

Ketqua = ""

For i = 1 To Len(Chuoi)
    Kytu = Mid(Chuoi, i, 1)
    If Kytu = "-" Or Kytu = "_" Or Kytu = "(" Or Kytu = ")" Or Kytu = " " Then
        Ketqua = Ketqua
    Else
        Ketqua = Ketqua & Kytu
End If

Next

RemoveSpecial = Ketqua

End Function

Read More »

Excel: Công thức chèn Line Break (Alt-Enter)

(Anhgolden's Blog) - Thông thường trong Excel để chèn Line Break - xuống hàng, trong cùng nội dung của Cell ta thường dùng phím tắt Alt-Enter.

Ghi chú: Phải chọn chế độ hiển thị Wrap Text

Trong trường hợp, sử dụng hàm ta có công thức như sau:

= Text1&Char(10)&Text2

Ví dụ: Theo hình bên
= A2&Char(10)&B2
(Chọn chế độ hiển thị là Wrap Text)

Read More »

Excel: hàm nối chuỗi

(Anhgolden's Blog)-Để nối chuỗi trong Excel ta dùng ký tự "&".
=String1&String2& ... &StringN

Ngoài ra, ta có thể sử dụng hàm Concatenate như sau:
=Concatenate(String1,String2,...,StringN)

Trong trường hợp, muốn chèn thêm ký tự đặc biệt ở giữa các chuỗi, ta dùng công thức:
=String1&";"&String2&";"...

Để chủ động, ta có thể viết 1 hàm bằng VB Script để nối chuối và chèn giữa bằng ký tự đặc biệt, công thức như sau:
=NoiChuoi(Cellx:Celly,"kytu")

Xin giới thiệu cách làm hàm nối chuỗi như sau:

Bước 1: Mở Excel, mở Microsoft Visual Basic (Alt-F11)
Bước 2: Insert Module
Bước 3: Chép đoạn code sau:

Function NoiChuoi(chuoi As Range, kytu As String) As String
Dim strResult As String
strResult = ""
Dim iCount As Integer
iCount = 0
For Each Item In chuoi.Cells
    iCount = iCount + 1
    If iCount < chuoi.Cells.Count Then
        strResult = strResult & Item.Value & kytu
    Else
        strResult = strResult & Item.Value
    End If
Next
NoiChuoi = strResult

End Function

Read More »