Bagaimana cara mengekstrak referensi sel dari rumus di Excel?

Misalkan Anda memiliki beberapa rumus panjang, dan sekarang, Anda ingin mengekstrak semua referensi sel dari rumus seperti gambar berikut yang ditampilkan. Bagaimana Anda bisa mengekstrak referensi sel dari rumus secepat mungkin?

Ekstrak referensi sel dari rumus dengan User Defined Function

Ekstrak referensi sel dari rumus dengan User Defined Function

Untuk mengekstrak referensi sel dari rumus, kode VBA di bawah ini mungkin bisa membantu Anda. Harap lakukan sebagai berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Ekstrak referensi sel dari rumus:

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. Setelah menempelkan kode, simpan kode dan kembali ke lembar kerja, dan masukkan rumus ini: = ekstrakcellrefs (G2) (G2 adalah sel yang berisi rumus yang ingin Anda ekstrak referensi selnya) ke dalam sel tempat Anda ingin mendapatkan hasilnya, lalu tekan Enter kunci, semua referensi sel telah diekstraksi dari rumus, lihat tangkapan layar: