Làm thế nào để chèn địa chỉ IP bằng số XNUMX trong Excel?
Khi nhận được một trang tính có chứa một số địa chỉ IP với hai chữ số trong một số phân đoạn, bạn có thể muốn thêm địa chỉ IP bằng XNUMX đến ba chữ số trong mỗi phân đoạn như hình minh họa bên dưới. Trong bài viết này, tôi giới thiệu một số thủ thuật để nhanh chóng đệm địa chỉ IP trong Excel.
Pad địa chỉ IP bằng XNUMX theo công thức
Pad địa chỉ IP bằng XNUMX bởi chức năng xác định
Pad địa chỉ IP bằng XNUMX theo công thức
Đây là một công thức dài có thể giúp bạn nhanh chóng đệm địa chỉ IP bằng XNUMX.
Chọn một ô trống, nhập công thức này,
=TEXT(LEFT(A1,FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(".",A1)+1,FIND("~",SUBSTITUTE(A1,".","~",2))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",2))+1,FIND("~",SUBSTITUTE(A1,".","~",3))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",3))+1,LEN(A1)-FIND(".",A1)-1),"000")
A1 là địa chỉ IP bạn sử dụng, nhấn đăng ký hạng mục thi , kéo chốt điền xuống các ô cần công thức này. xem ảnh chụp màn hình:
Pad địa chỉ IP bằng XNUMX bởi chức năng xác định
Nếu bạn đã quen thuộc với mã VBA, đây là mã cũng có thể giúp bạn chèn địa chỉ IP.
1. nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun để tạo một mô-đun mới. Xem ảnh chụp màn hình:
2. bên trong Mô-đun script, dán mã bên dưới vào nó, sau đó lưu mã và đóng cửa sổ VBA. Xem ảnh chụp màn hình:
VBA: Địa chỉ IP Pad
Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
Dim xList As Variant
Dim I As Long
xList = Split(Txt, ".")
For I = LBound(xList) To UBound(xList)
xList(I) = Format(xList(I), "000")
Next
IP = Join(xList, ".")
End Function
3. Chuyển đến một ô trống mà bạn sẽ đặt kết quả được tính toán, nhập công thức này = IP (A1), nhấn phím Enter và kéo chốt điền xuống các ô bạn cần. Xem ảnh chụp màn hình:
Các bài báo tương đối
- Làm thế nào để trích xuất một chuỗi từ địa chỉ IP trong Excel?
- Làm cách nào để thêm cùng một địa chỉ email vào danh sách tên trong Excel?
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!