求助: VBA编程比较同一excel文件多列数据问题

问题如下:
在同一XLS文件中有A、B、C、D。。。。。。等多列数据,其中A列的每个
单元格内容都固定为一个汉字;而B列以后的每一列的每个单元格的内容也都为汉字,只是字符长度不一,即B列以后的每一列的每个单元格的内容有的可能只是一个汉字,有的可能是三个或五个汉字不等,但B列以后的每一列的每个单元格的内容最长不会超过8个汉字。如:

A列 B列 C列 ...
1行 中 豪杰 哈哈 ...
2行 美 美菌 鸭 ...
3行 英 垃圾 鸭 ...
4行 法 猪头 屁股 ...
5行 俄 王八蛋 蛋 ...
. . . .
. . . .
. . . .

现在要求VBA程序能够对上述格式的数据进行如下操作:
以A列的单元格内容为标准,对A列的单元格所在的行的数据进行比较:以第一
行为例,A列的单元格内容为"中",如果B列及B以后的各列的第一行的单元格内容包
含有“中”这个字,则VBA程序能自动的将该单元格(指B列及B列以后的各列中满足该条件的单元格)的内容的字体设置成红色和粗体字;如果不包含有“中”,则VBA程序不对B列及B以后的各列的第一行的单元格内容进行任何处理而转入后面第二、第三行相同的比较。
再如第二行,因B列的第二行单元格内容包含有A列第二行单元格的内容“美”
字,则VBA程序自动将B列第二行单元格中“美菌”的“美”字的字体设置成红色和
粗体字(但“菌”字VBA程序不做任何处理),同样,C列第二行的单元格内容为因不包含“美”字VBA程序也不做任何处理。
对程序我是个新手,但手上有一堆数据要进行如上处理,如果人工进行如上操
作那简直是不让人活了!
恳请高手们在此赐一个能满足上述技术要求的VBA程序让俺也能获得解放!
!
恳请高手们在此赐一个能满足上述技术要求的VBA程序让俺也能获得解放!
!
另外该VBA程序在运行之前最好能提示如下输入:
“请输入要进行比较的起始行和结束行:_____ ______”
“请输入要进行比较的最后一列的列号:_____”
输入完上述三个参数只有VBA程序就能进行相应行列的单元格内容比较。

恳请高手们在此赐一个能满足上述技术要求的VBA程序让俺也能获得解放!
!
恳请高手们在此赐一个能满足上述技术要求的VBA程序让俺也能获得解放!
!
[1159 byte] By [voodoo2c] at [2008-1-9]
# 1
则VBA程序自动将B列第二行单元格中“美菌”的“美”字的字体设置成红色和
粗体字(但“菌”字VBA程序不做任何处理),
----------------------------------------------------------------------
这是不可能的
Arqui-我要吃饭 at 2007-10-19 > top of Msdn China Tech,其他开发语言,Office开发/VBA...
# 2
呵呵,要求不少啊,这会儿手头忙,晚上给你写一个
DeRoshia-知秋一叶 at 2007-10-19 > top of Msdn China Tech,其他开发语言,Office开发/VBA...
# 3
下午或晚上加我QQ:122754608,做好直接给你发过去
DeRoshia-知秋一叶 at 2007-10-19 > top of Msdn China Tech,其他开发语言,Office开发/VBA...
# 4
试试下面的代码(已测试过):
Sub Test()
Dim sR, eR, eC, i, j, k As Integer, w1 As String, ww
On Error Resume Next
w1 = InputBox("请输入起始行、结束行、结束列,用|隔开,如:1|10|8")
If w1 = "" Then MsgBox "没有输入数据!": Exit Sub
ww = Split(w1, "|")
If UBound(ww) <> 2 Then MsgBox "输入数据无效!": Exit Sub
sR = Val(ww(0))
eC = Val(ww(2))
eR = Val(ww(1))
If sR < 1 Or eR < 1 Or eR < 2 Then MsgBox "输入数据无效!": Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
For i = sR To eR
For j = 2 To eC
k = InStr(1, .Cells(i, j), .Cells(i, 1), vbTextCompare)
Do While k > 0
With .Cells(i, j).Characters(Start:=k, Length:=1).Font
.FontStyle = "加粗"
.ColorIndex = 3
End With
k = InStr(k + 1, .Cells(i, j), .Cells(i, 1), vbTextCompare)
Loop
Next
Next
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
# 5
谢谢各位的热心帮助,偶这几天公家事忙得很,还没机会坐下来细细品味各位的“拿手好菜”,在这里先谢了,明儿休息再给各位细细打分,嘿嘿,偶第一次来这乐园,还不知这个打分什么怎么个玩法呢。
voodoo2c at 2007-10-19 > top of Msdn China Tech,其他开发语言,Office开发/VBA...