Breaking News: Grepper is joining You.com. Read the official announcement!

select random 4 character from string in excel vba

Drab Donkey answered on March 29, 2021 Popularity 3/10 Helpfulness 1/10

answer select random 4 character from string in excel vba

select random 4 character from string in excel vba

Comment

Public Function Anonymise(str As String)
chunks = Split(str, " ")
Dim ret As String
ret = ""

If IsNumeric(str) = False Then
    For i = 0 To UBound(chunks) - LBound(chunks)
        ret = ret + " " + RandString(Len(chunks(i)))
    Next i
    ret = Trim(ret)
    Anonymise = StrConv(ret, vbProperCase)
Else
    For i = 0 To UBound(chunks) - LBound(chunks)
        ret = ret + " " + RandNum(Len(chunks(i)))
    Next i
    ret = Trim(ret)
    Anonymise = ret
End If
End Function

Function RandString(n As Long) As String
    Dim i As Long, j As Long, m As Long, s As String, pool As String
    pool = "abcdefghijklmnopqrstuvwxyz"
    m = Len(pool)
    For i = 1 To n
        j = 1 + Int(m * Rnd())
        s = s & Mid(pool, j, 1)
    Next i
    RandString = s
End Function


Function RandNum(n As Long) As String
    Dim i As Long, j As Long, m As Long, s As String, pool As String
    pool = "0123456789"
    m = Len(pool)
    For i = 1 To n
        j = 1 + Int(m * Rnd())
        s = s & Mid(pool, j, 1)
    Next i
    RandNum = s
End Function

Popularity 3/10 Helpfulness 1/10 Language vb

Source: stackoverflow.com

Tags: character excel random select string vba

Link to this answer
Share Copy Link

Contributed on Mar 29 2021

Drab Donkey

0 Answers Avg Quality 2/10

select random 4 character from string in excel vba

Contents

More Related Answers

select random 4 character from string in excel vba

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.