作者：乔山办公网日期：
返回目录：excel表格制作
可在excel里的自定义格式统一加上相同字符。
1、以excel2010版本为例，如下图要在抄该列数据前面加上字符“￥”，首先选中该列数据，然袭后点击鼠标右键，在弹出框里选择“设置单元格格式”；百
2、在弹出的设置框里，点击数字一栏，选择里面的“自定义”；
3、在自定义右边的设置框里，格式选择下面的“0”，然后在类型下面的方框里数字0前面加上要统一加的符号“￥”，再点击下面的确定；
4、如下图，则可成功度的在该列数据前统一加上符号“￥”了。
有两种方法可以解决
第一种zd：使用公式的方法 =A1 =B1 直接判断A1单元格和B1单元格内的字符串是否相版等。
第二中：使用函数的方法 = EXACT(A1,B1)判断A1单元格和B1单元格内的字符串是否相等。
两种权方法返回结果均为TURE或FALSE，TURE表示相等，FALSE表示不相等。
具体如图所示：
统计B列中的来“B”有都少个？ 公式源 =COUNTIF(B219：B239,"B"), 公式写在其他列百中也可以
=COUNTIF(B:B,"B").。
统计整个表中度的B的数量 =COUNTIF(A1：N239，"B")
另外：A219到问N219，叫一行答。
A219到A239，叫一列。
感觉楼主好几个问题,都非要用with sheet3.range来指定范围
真是无语.既然求助别人,你自己不会的情况下,别人有更好的办法,为什么非要听你的呢???
Sub 标记字符颜色()
Dim MySelect As Range, Myrng As Range
On Error Resume Next
'调用inputbox方法显示一个输入框等待用户输入或框选单元格区域
Set MySelect = Application.InputBox("请输入或者框选匹配字符所在的单元格:", "指定单元格", Type:=8)
'如果myselect 是空 退出过程,对用户点e799bee5baa6e79fa5e98193e4b893e5b19e361击输入框的取消按钮后作出判断.
If MySelect Is Nothing Then Exit Sub
Set Myrng = Application.InputBox("请输入或者框选被匹配单元格的区域:", "指定被匹配单元格区域", Type:=8)
If Myrng Is Nothing Then Exit Sub
For Each pp In MySelect
For Each bpp In Intersect(Range(Cells(1, pp.Column), Cells(65536, pp.Column)), Myrng)
dxrow = pp.Value
mbrow = bpp.Value
If dxrow <> "" And mbrow <> "" Then
Do
wz = InStrRev(mbrow, dxrow)
If wz <> 0 Then bpp.Characters(Start:=wz, Length:=Len(dxrow)).Font.ColorIndex = 3: mbrow = Mid(mbrow, 1, wz - 1)
Loop While wz <> 0
End If
Next
Next
End Sub
楼主求助的时候,因为实现的方法很多种,在不确定哪种方法更好之前,不要轻易指定代码.
上面的代码,可以根据自己的需要选择指定区域,不是更好吗?不用每次在程序中修改区域