Hướng dẫn sử dụng:
Mở Excel và mở workbook bạn muốn thêm dấu ' vào.
Nhấn ALT + F11 để mở trình soạn mã VBA.
Chèn một Module mới bằng cách nhấp chuột phải vào Projet và chọn Insert > Module.
Sao chép mã VBA được cung cấp và dán vào Module vừa tạo.
Thay "Sheet1" bằng tên của sheet mà cột C chứa ngày tháng năm sinh của bạn.
Nhấn Ctrl + S để lưu workbook của bạn.
Đóng trình soạn mã VBA.
Nhấn Alt + F8 để mở hộp thoại Macro.
Chọn macro "ThemDauApostrophe" và nhấn "Run" để thực thi mã VBA.
Mã này sẽ duyệt qua mỗi ô trong cột C từ hàng thứ 2 đến hàng cuối cùng có dữ liệu, kiểm tra xem dữ liệu trong ô có bắt đầu bằng dấu ' không. Nếu không, nó sẽ thêm dấu ' vào trước dữ liệu.
Sub ThemDauApostrophe()
Dim ws As Worksheet
Dim lastRow As Long
Dim cell As Range
' Thay "Sheet1" bằng tên của sheet bạn đang làm việc
Set ws = ThisWorkbook.Sheets("Sheet1")
' Xác định dòng cuối cùng chứa dữ liệu trong cột C
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
' Duyệt qua từng ô trong cột C
For Each cell In ws.Range("C2:C" & lastRow) ' Bắt đầu từ hàng 2 để tránh tiêu đề cột
If Not cell.Value = "" Then ' Chỉ xử lý ô không rỗng
If Left(cell.Value, 1) <> "'" Then ' Kiểm tra xem ô có bắt đầu bằng dấu ' hay không
cell.Value = "'" & cell.Value ' Thêm dấu ' vào trước dữ liệu ngày tháng
End If
End If
Next cell
End Sub