不好意思，再请教个问题，如何将回旋的数据删掉回旋的部分

ni3434

守柔斑竹，不好意思，再请教一个问题。 我有很多数据是回旋的，比如123456abccba654321，我想替换成123456abc（每个回旋的数据都不一样），这些可以用通配符批量替换吗?

守柔

我希望能看到实例，太少的举例会导致替换的不成功性增加，我需要正正确地分析数据，才能有正确的结果。

ni3434

后一列为回旋的，有些还有特殊符号，麻烦斑竹了:) Lz0lHRaE.rar (2.39 KB, 下载次数: 8)

2006-3-4 15:47 上传

点击文件名下载附件

[此贴子已经被作者于2006-3-4 15:47:48编辑过]

守柔

对于回旋部分小于9个文字长度的，可以使用查找与替换法，可从9个依次递减替换，如图：

[此贴子已经被作者于2006-3-4 17:37:12编辑过]

守柔

VBA处理法 '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I LOVE YOU WORD!@ExcelHome 2006-3-4 17:35:16 '仅测试于System: Windows NT Word: 11.0 Language: 2052 '№ 0027^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Option Explicit Sub RepExample() '处理回旋数据,如ABCDEFGGFEDCBA Dim myString As String, lngStart As Long, lngEnd As Long, lngHalf As Long Dim myRange1 As Range, aWord As Range, myRange2 As Range Dim intLenth As Integer, strWord As String With ActiveDocument For Each aWord In .Words '遍历词组,注意你的词组,主体应为数字和英文 With aWord strWord = .Text '文本内容 intLenth = VBA.Len(strWord) '词组长度 lngStart = .Start '起点位置 lngEnd = .End '终点位置 End With If intLenth Mod 2 = 0 Then '回旋词组必定为双数长度 lngHalf = (lngStart + lngEnd) / 2 '折点位置 Set myRange1 = .Range(lngStart, lngHalf) '前半部分 Set myRange2 = .Range(lngHalf, lngEnd) '后半部分 If VBA.StrReverse(myRange2.Text) = myRange1.Text Then '如果后半部分倒过来等同于前半部分 myString = myString & myRange1.Text '内存中累加前半部分 Else myString = myString & strWord '累加 End If Else myString = myString & strWord '累加 End If Next .Content.Text = myString '重写文档内容 End With End Sub

[此贴子已经被作者于2006-3-4 17:38:25编辑过]

ni3434

谢谢斑竹:)

，替换的方法我试了怎么不行呢，555555555555，VBA不太会用。

[此贴子已经被作者于2006-3-5 13:59:59编辑过]

ni3434

斑主，替换的方法不行啊，怎么办呢