Thêm khoảng trắng trước văn bản trong excel

Question

Ghi chú. Hộp văn bản không nằm trong ô nhưng nổi trên nó. Nếu hàng mà nó được chèn di chuyển khi nội dung bên trên bị thay đổi, hộp văn bản sẽ không di chuyển cùng với ô. Để di chuyển hộp văn bản, hãy di chuyển con trỏ đến cạnh của hộp văn bản, rồi bấm và giữ để kéo hộp văn bản đến vị trí mới

Thật không may, không có cách nào trực tiếp để bạn thêm dấu cách trước các chữ hoa trong Excel, nhưng bạn có thể tạo Hàm do người dùng xác định để giải quyết tác vụ này

1. Kích hoạt trang tính của bạn có chứa các chuỗi văn bản mà bạn muốn thêm dấu cách

2. Giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications

3. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào cửa sổ Mô-đun

mã VBA. Chèn dấu cách trước chữ in hoa

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này =addspaces(A1) vào ô trống bên cạnh dữ liệu của bạn, xem ảnh chụp màn hình.

5. Và sau đó kéo núm điều khiển điền vào phạm vi mà bạn muốn chứa công thức này, bạn sẽ nhận được khoảng trắng được chèn vào trước mỗi chữ in hoa của bạn

Dễ dàng loại bỏ khoảng trắng ở đầu/cuối/dấu cách thừa trong ô

Kutools cho Excel's Remove Spaces tiện ích cho phép người dùng Excel dễ dàng loại bỏ tất cả khoảng trắng ở đầu, khoảng trắng ở cuối, khoảng trắng thừa hoặc tất cả khoảng trắng khỏi các ô đã chọn một cách nhanh chóng. Bản dùng thử miễn phí đầy đủ tính năng 30 ngày

Chèn dấu cách trước chữ in hoa bằng mã VBA

Đây là một mã VBA khác có thể giúp bạn, vui lòng thực hiện như sau

1. Giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào cửa sổ Mô-đun

mã VBA. Chèn dấu cách trước chữ in hoa

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn phím F5 để thực thi đoạn mã này, một hộp nhắc sẽ hiện ra để bạn chọn vùng dữ liệu muốn sử dụng

4. Và sau đó nhấp vào OK để đóng hộp nhắc này, khoảng trắng đã được chèn trước các chữ in hoa cùng một lúc, xem ảnh chụp màn hình

Chèn khoảng trắng trước mỗi chữ in hoa bằng Kutools cho Excel

Kutools cho Excel's Thêm văn bản tiện ích có thể giúp bạn bỏ qua các macro VBA và chèn khoảng trắng trước mỗi chữ in hoa một cách dễ dàng trong Excel

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Đầy đủ tính năng dùng thử miễn phí 30 ngày, không cần thẻ tín dụng. Dùng thử miễn phí ngay

1. Chọn phạm vi mà bạn sẽ chèn khoảng trắng trước chữ in hoa và nhấp vào Kutools > Văn bản > Thêm văn bản. Xem ảnh chụp màn hình

2. Trong hộp thoại Thêm văn bản mở, hãy nhập khoảng trắng vào hộp Văn bản, chọn tùy chọn Chỉ thêm vào và chọn chữ cái đầu tiên là chữ hoa từ danh sách thả xuống Chỉ thêm vào

3. Nhấp vào nút Ok để chèn khoảng trắng trước mỗi chữ in hoa như ảnh chụp màn hình sau đây được hiển thị

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Đầy đủ tính năng dùng thử miễn phí 30 ngày, không cần thẻ tín dụng. Lấy nó ngay

ghi chú. Phương pháp này cũng sẽ thêm khoảng trắng ở đầu ô nếu chữ cái đầu tiên là chữ hoa. Bạn có thể áp dụng Kutools > Văn bản > Xóa khoảng trắng để xóa tất cả khoảng trắng ở đầu khỏi các ô đã chọn

bài viết liên quan

Làm cách nào để thêm khoảng trắng sau dấu phẩy trong Excel?

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

Bật chỉnh sửa và đọc theo tab trong Word, Excel, PowerPoint , Publisher, Access, Visio và Project.
Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới
Tăng năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 9 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

Phao-lô

khoảng 5 năm trước

#18168

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

tôi cần trợ giúp về excel tôi muốn tìm Chữ hoa trong một ô. Ví dụ. Sagar Paul MBA 16. 04 tôi muốn MBA được làm nổi bật

Đáp lại

0

Jay Paul

khoảng 5 năm trước

#18169

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi hy vọng bạn có thể xem nó và thử nó. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Ứng dụng. Lựa chọn cho mỗi xCell trong Rg Đối với i = 1 đến xCell. Nhân vật. Đếm xChar = xCell. Ký tự(i, 1). Văn bản Nếu Asc(xChar) > 64 Và Asc(xChar) < 91 Thì xCell. Nhân vật(i, 1). Nét chữ. Màu = vbRed End If Next Next End Sub

Đáp lại

0

xuất sắc

khoảng 5 năm trước

#19546

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, mã của bạn hoạt động tuyệt vời. Bạn có biết cách điều chỉnh mã 20140723 để hoạt động trên nhiều trang tính không? . Cảm ơn

Đáp lại

0

Luca

khoảng 4 năm trước

#26122

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào

Đầu tiên, xin cảm ơn rất nhiều về ví dụ mã và giải thích của bạn. Nó hoạt động rất tốt cho trường hợp của tôi.

Tôi chỉ gặp 1 Sự cố, một số Chuỗi chứa các từ như URL, không nên tách biệt các từ này.
Bạn có thấy cách nào để loại trừ "URL" khỏi việc thêm dấu cách không?

Sẽ rất tuyệt nếu bạn có thể trợ giúp. Tôi đã thử một lúc rồi, nhưng tôi không biết cách giải quyết vấn đề này.

Trân trọng
luca

Đáp lại

0