Làm cách nào để trích xuất tham chiếu ô từ công thức trong Excel?
Giả sử bạn có một số công thức dài và bây giờ, bạn muốn trích xuất tất cả các tham chiếu ô từ các công thức như hình minh họa sau. Làm thế nào bạn có thể trích xuất các tham chiếu ô từ các công thức nhanh nhất có thể?
Trích xuất tham chiếu ô từ các công thức với Hàm do Người dùng Xác định
Trích xuất tham chiếu ô từ các công thức với Hàm do Người dùng Xác định
Để trích xuất các tham chiếu ô từ các công thức, mã VBA dưới đây có thể giúp bạn. Vui lòng làm như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Trích xuất tham chiếu ô từ công thức:
Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
Dim xRetList As Object
Dim xRegEx As Object
Dim I As Long
Dim xRet As String
Application.Volatile
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
.Global = True
.MultiLine = True
.IgnoreCase = False
End With
Set xRetList = xRegEx.Execute(Rg.Formula)
If xRetList.Count > 0 Then
For I = 0 To xRetList.Count - 1
xRet = xRet & xRetList.Item(I) & ", "
Next
ExtractCellRefs = Left(xRet, Len(xRet) - 2)
Else
ExtractCellRefs = "No Matches"
End If
End Function
3. Sau khi dán mã, hãy lưu mã và quay lại trang tính, và nhập công thức này: = extractcellrefs (G2) (G2 là ô có chứa công thức bạn muốn trích xuất các tham chiếu ô) vào một ô mà bạn muốn lấy kết quả, rồi nhấn đăng ký hạng mục thi chìa khóa, tất cả các tham chiếu ô đã được trích xuất từ công thức, xem ảnh chụp màn hình:
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!
