Làm thế nào để đảo ngược tên miền theo ký hiệu trong Excel?
Đôi khi, bạn có thể gặp phải trường hợp đảo ngược tên miền theo ký hiệu như ảnh chụp màn hình bên dưới, bạn có thủ thuật nào để giải quyết nhanh không? Trong bài viết này, tôi giới thiệu hai phương pháp để xử lý nhanh chóng.
Đảo ngược tên miền theo ký hiệu với VBA
Đảo ngược chuỗi bằng dấu phân cách với Thứ tự Văn bản Đảo ngược
Đảo ngược tên miền theo ký hiệu với VBA
Đây là mã macro có thể giúp bạn, vui lòng thực hiện như sau trong Excel:
1. nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun, sao chép và dán mã vào tập lệnh trống.
VBA: Đảo ngược tên miền theo ký hiệu
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. nhấn F5 , một hộp thoại bật ra để nhắc bạn chọn một phạm vi để làm việc.
4. nhấp chuột OK.
Đảo ngược chuỗi bằng dấu phân cách với Thứ tự Văn bản Đảo ngược
Nếu bạn có Kutools cho Excel, tính năng Thứ tự Văn bản Đảo ngược có thể giúp bạn đảo ngược một chuỗi khi bạn cần.
Kutools cho Excel, với hơn 120 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. | ||
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau: (Tải xuống miễn phí Kutools cho Excel ngay!)
1. Chọn chuỗi bạn sử dụng, nhấp vào Kutools > bản văn > Đảo ngược Thứ tự Văn bản.
2. bên trong Văn bản Ngược lại , chọn một tùy chọn bạn cần để đảo ngược văn bản dựa trên.
3. nhấp chuột Okvà các chuỗi văn bản đã được đảo ngược.
Demo
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ 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 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!