作业帮用vba处理数据计算问题
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/28 16:06:22
用vba处理数据计算问题
在一个竖行数列中由高到低每次选取1个数,将这个数与紧邻的下五个不同的数比较,excel公式如何写?浏览次数：39次悬赏分：25 | 离问题结束还有 10 天 16 小时 | 提问者：匿名
有一列数据,十万行,每行一个数,由高到低每次取一个数,将这个数与下面紧接着的五个不同的数字比较（即下面五行数字中若有重复的,则再选下行的数字,总之一定要够五个数）,若选取的数与五个数中一个相同,则在选取的这个数旁边单元格标1,否则标0.如下例,第一步：选 6,在下面找到五个不重复的数,即02576（去掉一个重复的7）,发现6与其中的6相同,在6旁边单元格标1.第二步：选下行的0,找到其下五个不重复的数,即25761（同样去掉一个重复的7）,发现0与这五个数不相同,在2旁边标0.依次类推.
6
0
2
5
7
7
6
1
在一个竖行数列中由高到低每次选取1个数,将这个数与紧邻的下五个不同的数比较,excel公式如何写?浏览次数：39次悬赏分：25 | 离问题结束还有 10 天 16 小时 | 提问者：匿名
有一列数据,十万行,每行一个数,由高到低每次取一个数,将这个数与下面紧接着的五个不同的数字比较（即下面五行数字中若有重复的,则再选下行的数字,总之一定要够五个数）,若选取的数与五个数中一个相同,则在选取的这个数旁边单元格标1,否则标0.如下例,第一步：选 6,在下面找到五个不重复的数,即02576（去掉一个重复的7）,发现6与其中的6相同,在6旁边单元格标1.第二步：选下行的0,找到其下五个不重复的数,即25761（同样去掉一个重复的7）,发现0与这五个数不相同,在2旁边标0.依次类推.
6
0
2
5
7
7
6
1
EXCEL最多只有65536行,不会有十万行啦
找到五个不重复的数的目的是什么,不用显示或记录下来吗
搞不懂这样处理有什么用
再问： EXCEL2007有1048567行。本人研究彩票发现，彩票中刚开出的几期数字经常会重新出现，想在个位上验证一下。买前几期刚开出的五个不同数字来押即将开出的下一期个位，我有14万期历史开奖数据，想这样验证一下，看看这种买法是否可行。我有很多买法，苦于excel基本功不行，无法验证，所以希望高手帮帮忙，如果哪种方法可以操作，可以一同分享。
再答： Sub Data() Dim dic As Object Dim rng As Range On Error Resume Next Set dic = CreateObject("Scripting.Dictionary") For Each rng In Selection vlu = rng.Value rw = rng.Row clm = rng.Column x = 1 Do While x
找到五个不重复的数的目的是什么,不用显示或记录下来吗
搞不懂这样处理有什么用
再问： EXCEL2007有1048567行。本人研究彩票发现，彩票中刚开出的几期数字经常会重新出现，想在个位上验证一下。买前几期刚开出的五个不同数字来押即将开出的下一期个位，我有14万期历史开奖数据，想这样验证一下，看看这种买法是否可行。我有很多买法，苦于excel基本功不行，无法验证，所以希望高手帮帮忙，如果哪种方法可以操作，可以一同分享。
再答： Sub Data() Dim dic As Object Dim rng As Range On Error Resume Next Set dic = CreateObject("Scripting.Dictionary") For Each rng In Selection vlu = rng.Value rw = rng.Row clm = rng.Column x = 1 Do While x