Question

为了记录，我对编码的经验非常有限。我们使用Excel记录当天的所有实时事件。报告大约100到150行，每行有多行。每行使用12个合并的单元格并包装文本。

所需操作：在光标之后，在已包含文本的单元格中插入特定文本（MS 2013 Excel使用VB）。

下面的代码有效，除了它将文本放在单元格的顶部而不是光标处。我们不能使用文本框，录制不起作用。什么代码可以完成这个？谢谢！

Sub SuziQueue () 

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

End Sub

Answer 1

也许这个例子会有所帮助

如果你有文字＆＃34;测试字符串＆＃34;在ActiveCell中
您要插入单词＆＃34; New＆＃34;在两个单词之间

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

可能有办法使用API

确定单元格中的光标位置

This Microsoft link显示了如何在屏幕上获取光标位置

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

1 个答案: