vb如何统计excel一行或者一列同一个字母有几个（返回单元格显示数字，几个）。，还有计算这个字母占总体百分比多少（也要把数值返回到单元格）如下图，，怎么统计列里面多少个T 或者其它的字母，，要用VB
vb如何统计excel一行或者一列同一个字母有几个（返回单元格显示数字，几个）。，还有计算这个字母占总体百分比多少（也要把数值返回到单元格）如下图，，怎么统计列里面多少个T 或者其它的字母，，要用VB 5
不区分大小写匿名
这还用得着VB或者VBA么？直接=COUNTIF(K:K,&T&)就完事了。。。
那百分比了，，，我们老师要求额，，，其实应该有三个窗口让用户输入首行 末行，，列的，，然后后台处理，，生成表格
=COUNTIF(K:K,"T")/COUNTA(K:K)就是百分比了如果是VBA的话，其实类似的，你用EXCEL现成的函数，会方便得多啦~~
但是要自动生产表格的，，，只能用VB的，，，对了 对了 结果出来了 怎么用VB反馈刀表哥里面啊 好像是一个call,,, 请教下 谢谢哈
你是要在VB中创建EXCEL文件并填写内容么？大概是这样的代码。Dim & xlApp & As & New & Excel.Application & '定义并创建EXCEL对象 &&Dim & xlBook & As & Excel.Workbook & '创建工作簿 &&xlApp.Visible & = & True & '让Excel可见 &&Set & xlBook & = & xlApp.Workbooks.Open(App.Path & & & "/dot.xls") & '打开Excel模板 &&With & xlBook.ActiveSheet && .Cells(1, & 1) & = & 1231 & '填充第一行第一列的值 &&& & & & '...... & & 填充其他行列的值，具体的填充位置得根据模板来做End & With &&xlBook.SaveAs & "c:/rlt.xls" & '将模板另存，以防模板被破坏 &&xlBook.Close & & False & '关闭工作簿 &&xlApp.Quit & & '关闭Excel &&
你和我思路反了把，，，问你下面这个把
&If UCase(Trim(Worksheets("数据源").Cells(i, tempatt))) &= "A" And UCase(Trim(Worksheets("数据源").Cells(i, tempatt))) &= "F" Then&& &&&&& Worksheets("数据源").Cells(i, tempatt).Select&&&&&& With Selection.Interior&&&&&&& .ColorIndex = xlNone&&&&&& End With
&这段代码是，，在一列里面，，在A到F的范围里面显示无颜色把，，，能帮我在里面改下，变成查找一列里面A有几个吗，，还有占百分比多少，，显示刀单元格(1.1)里面
这个 用函数不是更加好
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号访问本页面，您的浏览器需要支持JavaScript访问本页面，您的浏览器需要支持JavaScript几列多行excel数字表求同一行数字相同的个数
几列多行excel数字表求同一行数字相同的个数
同一行数字相同如：第5行、第7行、第9行、第11行、第12行等等
同一行数字相同出现个数按不同数字分别放在D列E列F列的任意一行等等
如：1的个数个数为1，放在的D1,7的个数个数为1，放在的E1,0.1的个数个数为1，放在的F1&
=OFFSET($A$1,SUMPRODUCT(SMALL(IF(($A$1:$A$23=$B$1:$B$23)*ROW($A$1:$A$23)=0,23,($A$1:$A$23=$B$1:$B$23)*ROW($A$1:$A$23)),COLUMN(A1)))-1,0)
复制后粘贴到“D1”单元格，双击该单元格，按“Shift”+“Ctrl”+"Enter”键完成公式，这时公式多了{}，如图：
对准右下角，光标成“+”状时，按住左键向后拖，效果如图：
按你的方法做COLUMN(a1)))-1,0)变成为COLUMN(#REF!)))-1,0)不对了。请您帮忙分步骤详细指点。另外，请您帮忙把同一个数合计数也算出来。如1的合计数1/0.1的合计数1写在该数的下一个单元格（1的合计数在D2）。能否请您写个vba语言，劳驾您啦！假如上述第1/2行不够用，能否改在原始数字表的下方做，辛苦您啦！
原公式有误，应为
=OFFSET($A$1,SUMPRODUCT(SMALL(IF(($A$1:$A$23=$B$1:$B$23)*($A$1:$A$23=$C$1:$C$23)*ROW($A$1:$A$23)=0,23,ROW($A$1:$A$23)),COLUMN(A1)))-1,0)
统计个数（统计“A”列个数，不知是不是你要的结果）的公式为
=COUNTIF($A$1:$A$22,A24)
成"COLUMN(#REF!)"这种情况,估计是你将公式从右向左拖或是删除了单元格（列），至使公式单元格引用无效.
对于vba我可是一点都不会。
谢谢您。前述都对。只是统计个数（统计“A”列个数，不是我要的结果）的公式为
=COUNTIF($A$1:$A$22,A24)。因为我要的是当数字A列=B列=C列(如：A1=B1=C1)时的个数。
如果你是要按A列=B列=C列分别统计个数，上面公式就行，
如果是统计A列=B列=C列总的个数，则公式为：
=SUMPRODUCT(($A$2:$A$23=$B$2:$B$23)*($A$2:$A$23=$C$2:$C$23)*($A$2:$A$23&&"")*1)
我要的是当数字A列=B列=C列(如：A1=B1=C1)时的个数。
要的是111、777、0.1-0.1-0.1、0.08-0.08-0.08、0.19-0.19-0.19他们分别出现的个数。
计数有重复，如：1。不知对否？
因为“1-1-1”第五行和第十二行各有一个，所以计数为“2”，并非重复。如果不是你要的效果，可否以图为例，你手工做一个所需要的效果，供我对症下药。
原始数据表
三个数字相同汇总出现个数表
汇总后数据
1另外，如 笨鸟 先生答案，请在A25输入 =SUMPRODUCT(($A1:$A22=A24)*($B1:$B22=A24)*($C1:$C22=A24))做不出来，请您帮我解决一下！
如果是相同的数据只提取一个，方法如下：
=(A1=B1)*(B1=C1)
粘贴到“D1”单元格，如图：
=(A2=B2)*(B2=C2)-SUMIF($A$1:A1,A2,$D$1:D1)
粘贴到“D2”单元格，并双击下去，如图：
=OFFSET($A$1,SUMPRODUCT(SMALL(IF(($D$1:$D$23=1)*ROW($1:$23)=0,23,ROW($1:$23)),ROW()))-1,0)
粘贴到“E1”单元格，按“Shift”+“Ctrl”+“Enter”键，如图：
=IF(E1=0,"",COUNTIF($A$1:$A$22,E1))
粘贴到“F1”单元格，如图：
将“E1:F1”单元格公式双击下去，如图：
不知是不是你要的效果。
补充一下。
“D”列为辅助数据，可将其隐藏，如图：
或是将其移于后面空白列，再将空白的“D”列同，删除，效果如图：
的感言：非常感谢！！！ 相关知识
其他回答 (2)
第一个问题：
可以使用条件格式设置
打开格式-----条件格式----选择“公式”----AND（a1=b1,a1=c1)
首先,谢谢您。打开格式-----条件格式----选择“公式”----AND（a1=b1,a1=c1)请您指教具体操作步骤，因为我没做出来。
可以将你设定的格式显示出来.
请您指教具体操作步骤显示出来（0.08/0.08/0.08，0.19/0.19/0.19等等。并显示出现个数）。不好意思，我还是没做出来。（请用图片显示给我看好吗？）
如 笨鸟 先生答案，请在A25输入 =SUMPRODUCT(($A1:$A22=A24)*($B1:$B22=A24)*($C1:$C22=A24))我正逐步淡出问问，处理完追问和关于Excel的求助后，正式退出问问。
相关知识等待您来回答
微软专区领域专家
& &SOGOU - 京ICP证050897号在Excel中同一个单元格内有两行数字,例如第一行是123,第二行是456,怎样把它们合并成123456在一起?
这样的格式有2种情况，请看看是那种：&
1、先将那一列拉宽点，如发现还没有变成一行的话，就能断定就是用 alt+回车键
分成了两行，这时只需要把光标放在数字4的前面按一下退格键（←Backspace）就可以了。&
2、先将那一列拉宽点，如发现变成一行的话，这个单元格就是设置了“自动换行”，这时你只需依次点击：格式→单元格→对齐→将“自动换行”方框中的√点掉即可。注：如果是这种情况，直接把字体改小点也可以达到在同一行的效果！
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}