[重求] 复杂替换之法

jjpb

 

前蒙二位兄长赐教，成功链接上“发帖须知”，及“数独”游戏；甚是感谢！

独于word中如何施行这般替换，依然未解，重新求教，望高人指点；在下这厢先谢了！

1. 表格共计16×16格；

2. 单独替换某行，或某列，或某个4×4方格中的某几个数据，而不影响其他数据；

3. 由于数据过为繁多，似离不开替换中“高级”、“使用通配符”；

再行谢过！

 

3n7AMoIf.rar (7.99 KB, 下载次数: 8)

2007-3-17 20:11 上传

点击文件名下载附件
[重求] 复杂替换之法

c81

你的意思是说将两个表格相同位置内的内容作比较，在第二表中删除第一表的数字或字母？

那可能要VBA来帮忙吧，单纯的查找替换一时还想不起来。

jjpb

然也！

倘若第一行第一列有2，则将此行、此列、此4×4方框中之2尽数删除；最后把这个位置之数用2替代之

而这样一个一个操作起来则大费周章；故批量之法不可或缺也！

此等想法表述甚是不易，我亦未曾理清；仁兄竟能领会，喜哉！

何时果获解决之道，敬请赐教！谢，再谢！

cxz008

QUOTE:

以下是引用jjpb在2007-3-17 22:57:00的发言：

然也！

倘若第一行第一列有2，则将此行、此列、此4×4方框中之2尽数删除；最后把这个位置之数用2替代之

而这样一个一个操作起来则大费周章；故批量之法不可或缺也！

此等想法表述甚是不易，我亦未曾理清；仁兄竟能领会，喜哉！

何时果获解决之道，敬请赐教！谢，再谢！

倒牙了，酸哉酸哉！

c81

也就是字符串相减的问题了？

放在Excel中做吧，很简单的。

两表放在不同的sheet中，结果放在第三张sheet中

[此贴子已经被作者于2007-3-18 13:38:31编辑过]

sylun

作为练习，试写了一小部分，是以当前光标所在单元格的字符为查找对象，然后按规则删除第2个表格中相应的字符。测试了若干次，不知是否还有错漏。另，运行时间有时达3秒,太长了，估计方法全不对头。不知在word中完成最快要多长时间

Sub shudu()
'
Dim myrnum As Integer, mycnum As Integer, findtext As String
Dim i As Integer, n As Integer, myceltext As String
Dim st_time As Single, en_time As Single

Application.ScreenUpdating = False
'st_time = Timer
If Selection.Information(wdWithInTable) = True Then
    myrnum = Selection.Range.Information(wdEndOfRangeRowNumber)
    mycnum = Selection.Range.Information(wdEndOfRangeColumnNumber)
    findtext = Mid(ThisDocument.Tables(1).Cell(myrnum, mycnum).Range.Text, _
        1, Len(ThisDocument.Tables(1).Cell(myrnum, mycnum).Range.Text) - 2)
    With ThisDocument.Range.Tables(2)
        For i = 1 To 16
            myceltext = Mid(.Rows(myrnum).Cells(i).Range.Text, _
                1, Len(.Rows(myrnum).Cells(i).Range.Text) - 2)
                .Rows(myrnum).Cells(i).Range.Text = _
                    Mid(Replace(myceltext, findtext, ""), 1)
                myceltext = Mid(.Rows(i).Cells(mycnum).Range.Text, _
                    1, Len(.Rows(i).Cells(mycnum).Range.Text) - 2)
                .Rows(i).Cells(mycnum).Range.Text = _
                    Mid(Replace(myceltext, findtext, ""), 1)
        Next
        For i = 1 To 4
            For n = 1 To 4
                If InStr(.Rows(Int((myrnum - 1) / 4) * 4 + i).Cells _
                (Int((mycnum - 1) / 4) * 4 + n).Range.Text, findtext) <> 0 Then
                    myceltext = Mid(.Rows(Int((myrnum - 1) / 4) * 4 + i).Cells _
                        (Int((mycnum - 1) / 4) * 4 + n).Range.Text, 1, _
                        Len(.Rows(Int((myrnum - 1) / 4) * 4 + i).Cells _
                        (Int((mycnum - 1) / 4) * 4 + n).Range.Text) - 2)
                    .Rows(Int((myrnum - 1) / 4) * 4 + i).Cells(Int((mycnum - 1) / 4) _
                        * 4 + n).Range.Text = Mid(Replace(myceltext, findtext, ""), 1)
                End If
            Next n
        Next i
    End With
    End If
    'en_time = Timer
    'Debug.Print en_time - st_time
    Application.ScreenUpdating = True
End Sub

jjpb

多谢sylun兄、c81兄、cxz008兄指点！

回“家”以后，才知道我是多么的土星人、多么的大白菜！

[em08]

操作起来，还不是很明白

[em09]

已不好意思麻烦各位高手——呵呵太不在一个层次上啊！