如何将 Excel VBA 中的字符 Object 与变量而不是单元格引用一起使用

Question

I am trying to return each character in a string. I know that the same can be accomplished by making use of MID but, this is just a small part of a bigger script for which I need to determine the characters in italic.

The following works correct:

For x = 1 To Len(Activecell)           
    MsgBox Activecell.Characters(x, 1).Text
Next x

However trying to do the same with a variable in which the string is stored does not work:

V = "blabla blabla blabla"
For x = 1 To Len(V)           
    MsgBox V.Characters(x, 1).Text
Next x

Is there a way to use the Characters object in combination with a variable in which the string is stored?

Answer 1

So it seems you don't want to change your values in a cell, but rather in a variable. However, font information is stored in a cell containing a value. And since Characters is a Range property, it won't work on a variable. You'd need to iterate the characters in the actual cell and change your variable accordingly. For example, let's say this is cell A1 :

Sub Test()

Dim V As String: V = [A1]

For x = 1 To Len(V)
    If Range("A1").Characters(x, 1).Font.Italic Then
        V = Application.Replace(V, x, 1, "k")
    End If
Next x

Debug.Print V

End Sub

Returns:

blakla blakla klabla