Dim Str As String Dim MyString As Variant L = Len(Cell.Value) c = Cell.Value For P = 1 To L Sep = "," If P = L Then Sep = "" NextVal = Asc(Mid(c, P, 1)) & Sep Str = Str & NextVal Next P
MyString = Array(Str) Ch = MyString(1)
|Problem to open text file||11||69|
|Excel VBA Select All Cells with same color (at the same time)||4||36|
|SUMIFS with a criteria that could be in multiple rows||21||33|
|Office 365 Excel Connect to a SQL database||2||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!