Đôi khi, bạn cần thêm dấu phẩy giữa các số, ký tự trong Excel giúp nội dung của bạn dễ hiểu hơn. Tuy nhiên, thêm thủ công sẽ mất rất nhiều thời gian và công sức, đặc biệt khi bạn có nhiều dòng dữ liệu.
Trong bài viết này, chúng ta sẽ tìm hiểu một số cách dễ dàng để thêm dấu phẩy giữa các số, ký tự trong Excel, sau đó bạn có thể lựa chọn một cách phù hợp với nhu cầu và dữ liệu của mình.
Nội dung chính
Giả sử bạn có một danh sách các chuỗi văn bản và bạn muốn thêm dấu phẩy trước số xuất hiện đầu tiên như ảnh chụp màn hình bên dưới, làm thế nào bạn có thể nhanh chóng thêm dấy phẩy trong Excel?
1. Đầu tiên, bạn cần xác định vị trí của con số. Chọn một ô trống bên cạnh danh sách, đây là B1 và nhập công thức = MATCH (1, ISNUMBER (MID (A1, ROW (INDIRECT ("1:" & LEN (A1))), 1) +0) +0 , 0)
và gõ phím Shift + Ctrl + Enter .
Trong đó
2. Đi tới C1 và nhập công thức = REPLACE (A1, B1,1, "," & MID (A1, B1,1)) và nhấn phím Enter.
Trong đó, hàm REPLACE dùng để thay thế một phần của chuỗi bằng một chuỗi khác, dựa vào số ký tự được chỉ định. Kéo công thức xuống các ô bên dưới, bạn đã thêm thành công dấu phẩy trước các con số trong ô.
Lưu ý
Giả sử có một số từ được phân tách bằng dấu cách trong một ô, bây giờ bạn muốn thêm dấu phẩy giữa các từ này như hình minh họa bên dưới, làm cách nào bạn có thể xử lý nhanh mà không cần thêm từng từ một trong Excel?
Với chức năng Tìm và Thay thế, bạn có thể nhanh chóng tìm khoảng trắng giữa các từ và thay thế chúng bằng dấu cách sau dấu phẩy.
1. Chọn các ô muốn thêm dấu phẩy giữa các từ, nhấn Ctrl + H để bật chức năng Tìm và Thay thế .
2. Sau đó trong hộp văn bản Find what, gõ phím cách để nhập khoảng trắng vào đó, chuyển đến hộp văn bản Replace with, gõ phím cách một lần và thêm dấu phẩy.
3. Nhấp vào Replace All, tất cả các khoảng trắng đã được thay thế bằng dấu cách + dấu phẩy.
4. Nhấp OK > Đóng cửa sổ để thoát khỏi chức năng Tìm và Thay thế .
Như vậy, bạn đã thêm thành công dấy phẩy vào giữa các chữ có trong ô.
Bên cạnh sử dụng công thức và dùng chức năng Tìm và Thay thế trong Excel để thêm dấu phẩy vào giữa các chuỗi trong Excel, bạn có thể nhanh chóng thực hiện điều này bằng đoạn mã VBA sau.
1 . Nhấn giữ phím ALT + F11 trong Excel để mở cửa sổ Microsoft Visual Basic for Applications.
2 . Bấm Insert > Module và dán đoạn mã bên dưới vào Cửa sổ Module.
Mã VBA chèn ký tự bất kỳ vào một vị trí xác định trong một chuỗi Excel
Mã VBA chèn ký tự bất kỳ vào một vị trí xác định trong một chuỗi Excel
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "GITIHO tools"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
Xem thêm Khóa học lập trình VBA trong Excel - Viết code trong tầm tay
3. Nhấn phím F5 hoặc nút Run để chạy đoạn mã này, một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn chèn ký tự nhất định vào chuỗi văn bản.
4. Bấm OK và sau đó nhập số để xác định vị trí bạn muốn chèn thêm thêm dấu phẩy.
Khóa học liên quan