79149075

Date: 2024-11-01 18:43:08
Score: 2.5
Natty:
Report link

Public Function StringNum(Rng As Range) As String Dim tmpStr As String

tmpStr = ""

For Each cell In Rng

tmpStr = tmpStr & cell.Value & ","

Next

StringNum = Mid(tmpStr, 1, Len(tmpStr) - 1)

End Function

Reasons:
  • Low length (0.5):
  • No code block (0.5):
  • Unregistered user (0.5):
  • Low reputation (1):
Posted by: OldMan