在已经包含文本的单元格中的光标处插入文本（MS Excel VBA 2013）

Question

For the record I have very limited experience with coding. We use Excel to document all the real time events in the day. Reports are approx 100 to 150 rows long with multiple lines in each row. Each row uses 12 merged cells and text is wrapped.

Desired Action: to insert specific text, after the cursor, in a cell that already contains text (MS 2013 Excel using VB).

The code below works except it puts the text at the top of the cell instead of at the cursor. We cannot use a text box and recording doesn't work. What code can accomplish this? Thank you!

Sub SuziQueue () 

    With ActiveCell 
        .Value = "<Suzi Queue... >" & .Value 
    End With 

End Sub 

Answer 1

Maybe this example will help

• if you have the text "Test String" in ActiveCell

• you want to insert the word "New" in between the 2 words

.

Option Explicit

Sub insertText()
    Dim indx As Long, lastPart As String

    With ActiveCell
        MsgBox .Value2      'shows "Test String"

        indx = InStr(.Value2, "S")
        lastPart = Right(.Value2, indx + 1)

        .Characters(indx).Insert "New" & lastPart 'inserts "New" between "Test" & "String"

        MsgBox .Value2      'shows "Test New String"
    End With
End Sub

.

There might be ways to determine the cursor position in the cell using APIs

This Microsoft link shows how to get the cursor position on the screen