您的位置：程序门 -> vb -> vba

求助一个关于excel统计处理方面的特别问题！谢谢！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

求助一个关于excel统计处理方面的特别问题！谢谢！！

发表于：2007-07-11 00:09:24 楼主

各位大虾老鸟们
问一个困扰了小弟很久的关于excel统计的问题
比如：
3 4 5
a b c
3 a b
c b a
4 6 9
若给出“3”，要找出“3”，并统计3下面的数或字母（“a”和“c”）返回是什么值，各有多少，如此循环调用直到单元格里没有值为止。

请大家帮帮忙！
谢谢！非常感谢！

发表于：2007-07-11 09:25:331楼得分:0

sub my_countif（)
dim dat（)
xx = inputbox（ "请输入一个条件！ ", "查找 ", " ")
if len（xx) > = 1 then
i = activesheet.usedrange.rows.count
j = activesheet.usedrange.columns.count
redim dat（1 to i * j)
n = 0
for each c in activesheet.range（cells（i, j).address & ": " & cells（1, 1).address)
if c.value = xx then
n = n + 1
dat（n) = cells（c.row + 1, c.column)
end if
next
x = 0
for i = 1 to n
if x = 5 then
s_string = s_stirng & dat（i) & chr（10)
x = 0
else
s_string = s_string & dat（i) & " "
x = x + 1
end if
next
msgbox "合计找到 " & n & " 个符合条件的记录!分别如下: " & chr（10) & s_string
end if
end sub

发表于：2007-07-11 23:20:242楼得分:0

3q3q
非常感谢！！

发表于：2007-10-19 13:52:233楼得分:0

踩回去慢慢看

发表于：2007-10-22 19:16:524楼得分:0

學習

发表于：2007-10-22 23:31:355楼得分:0

下一篇：为什么我在excel中录制线性规划求解宏后,,,运行不成功,,显示语法错误
上一篇：cad打印成pdf的vba问题

其他资讯