excel中怎么每两个字插入指定关键字

发布网友发布时间：2022-05-18 14:48

共4个回答

热心网友时间：2023-10-18 10:41

试验如下代码：

Sub Test()
On Error Resume Next
Dim myRange As Range
Dim myWord As String
Set myRange = Application.InputBox("选择单元格区域", Default:="A1:A10", Type:=8)
myWord = Application.InputBox("输入关键字", Default:="UFO", Type:=2)

Dim i, j As Single
For i = 1 To myRange.Cells.Count
If Len(myRange.Cells(i)) >= 2 Then
Dim myString As String
myString = ""
For j = 1 To Int(Len(myRange.Cells(i)) / 2)
myString = myString & Mid(myRange.Cells(i), 2 * j - 1, 2) & myWord
Next
myRange.Cells(i) = myString
End If
Next

End Sub

热心网友时间：2023-10-18 10:42

用vba吧，用len获取当前字符长度，然后循环

热心网友时间：2023-10-18 10:42

你手动贴几个例子上来呢。追问每一行随即位置插入关键字：UFO
例子：
我UFO爱你的阿加西
我不UFO是恍如
当回事哈UFO哈哈
的可怕很UFO多年事实上
使江苏人很多年UFO顶焦度计
电日苏诶UFO日世界电脑
四日这么看出两地的经费UFO那天
这给这UFO这如何的解

追答

很抱歉，中午出去吃饭去了。

附件上我加了一个辅助列，然后默认关键字不能添加最前面和最后面。

热心网友时间：2023-10-18 10:43

=LEFT(A1)&"关键词"&RIGHT(A1)