在表格行打1为什么后边系列产生在行怎么设置两个0

来源：蜘蛛抓取(WebSpider) 时间：2016-04-26 01:54 标签： 行情在绝望中产生
查看: 205|回复: 6
求每隔2行一组统计b列单元格内1-10这10个数字中出现0次、1次的数vba程序
阅读权限30
在线时间 小时
& & & & & & & &
1、单元格b5开始的b列各单元格中填有不同数字,每相邻二个数字间空一格，每隔2行一组即b5：b6为一组，b7：b8为一组，b9：b10为一组......
2、统计各组单元格数据中：1-10这10个数字中没有出现的数据并串接（相邻二个数据空1格）后填到g5开始的g列中；
3、统计各组单元格数据中：1-10这10个数字中出现次数为1次的数据并串接（相邻二个数据空1格）后填到h5开始的h列中；
(6.44 KB, 下载次数: 7)
09:52 上传
点击文件名下载附件
阅读权限100
在线时间 小时
本帖最后由 看见星光 于
10:30 编辑
Sub dd()
Dim d As Object, arr, brr, drr, i&, j&, k&, s$
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Range(&b5:b& & Cells(Rows.Count, 2).End(3).Row)
& & ReDim drr(1 To Cells.Rows.Count, 1 To 2)
& && &&&For i = 1 To UBound(arr) Step 2
& && && && &s = arr(i, 1) & & & & arr(i + 1, 1)
& && && && &brr = Split(s, & &)
& && && && &For j = 0 To UBound(brr)
& && && && && & d(brr(j)) = d(brr(j)) + 1
& && && && &Next
& && && && &k = k + 1
& && && && &For n = 1 To 10
& && && && && & n = CStr(n)
& && && && && & If Not d.exists(n) Then
& && && && && && &&&drr(k, 1) = drr(k, 1) & n & & &
& && && && && & End If
& && && && && & If d(n) = 1 Then
& && && && && && &&&drr(k, 2) = drr(k, 2) & n & & &
& && && && && & End If
& && && && &Next
& && && && &d.RemoveAll
& && &&&Next
& & [g5].Resize(k, 2) = drr
Set d = Nothing
End Sub
复制代码
阅读权限100
在线时间 小时
& & & & & & & &
附件参考。
(16.88 KB, 下载次数: 2)
10:26 上传
点击文件名下载附件
阅读权限95
在线时间 小时
& & & & & & & &
& & Dim d, ar, br
& & Set d = CreateObject(&Scripting.Dictionary&)
& & ar = [b5].CurrentRegion
& & For i = 1 To UBound(ar) Step 2
& && &&&s = Split(ar(i, 1) & & & & ar(i + 1, 1), & &)
& && &&&For x = LBound(s) To UBound(s)
& && && && &d(s(x)) = d(s(x)) + 1
& && &&&Next
& && &&&For y = 1 To 10
& && && && &If Not d.exists(&& & y) Then
& && && && && & a = a & & & & y
& && && && &Else
& && && && && & If d(&& & y) = 1 Then
& && && && && && &&&b = b & & & & y
& && && && && & End If
& && && && &End If
& && &&&Next
& && &&&Cells(5 + n, 7) = Mid(a, 2): Cells(5 + n, 8) = Mid(b, 2)
& && &&&n = n + 1: a = &&: b = &&: d.RemoveAll
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&
(13.7 KB, 下载次数: 4)
10:57 上传
点击文件名下载附件
阅读权限30
在线时间 小时
& & & & & & & &
& & Dim d, ar, br
& & Set d = CreateObject(&Scripting.Dictionary&)
程序经测试满足要求，谢谢老师！
阅读权限30
在线时间 小时
附件参考。
老师你好，程序经测试满足要求，谢谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师在表格行打1为什么后边产生两个0_百度知道
在表格行打1为什么后边产生两个0
在表格行打1为什么后边产生两个0
是取最后一个非0数字前面的吧，如果是，假设数据在A1：A100中，B1中输入=LEFT(A1,LOOKUP(1,0/MID(A1,ROW($1:$99),1),ROW($1:$99)))用自动填充柄下拉B1中公式。 B1中输入也可以改为=LEFT(A1,MATCH(,0/MID(A1珐叮粹顾诔该达双惮晶,ROW($1:$99),1)))同时按下CTRL+SHIFT+回车，输入数组公式，下拉。
安卓教程|PHP教程|HTML5教程
主营：程序员培训专注php、Android、UI设计、云计算、iOS、HTML5培训
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁我在电子表格里输入1。20后面的那个0为什么打不出来？要怎样才能打出来？_百度知道
我在电子表格里输入1。20后面的那个0为什么打不出来？要怎样才能打出来？
我设完了，但是很多单元格总不能一个一个地设置吧
你输入的数字的格式不对右键所输入数字的单元格，选择设置单元格格式在数字一栏选择数值 再选择小数点后面位数
其他类似问题
为您推荐：
电子表格的相关知识
其他3条回答
设置单元格格式-数字-数值-小数位数 为2
右键，单元格式，数字设置成 数值型，保留两位小数
右击——设置单元格——文本就可以了
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁更多选车参考：
综述：转让老精英
型号：福美来 老精英
出厂日期：日
购车日期：日
购车地点：建国汽贸
车辆所在地：四川 成都
车辆购置价：16.61万元
加真皮及其他：0.15万元+封釉0.1万元（目前剩5次）
车购税：1.4266万元
保险费：0.5万元
上户后各种费用合计：18.98万元
用车性质：私用
已行车：9000公里
车况：良好
市内综合：10.2升/100公里 高速130公里平均油耗7.5升/100公里
投保公司：天安保险公司
出险记录：无重大中事故
有过檫挂、补表漆3次 前叶子板2次，车门1次
转让原因：当前所住小区新建二期工程，停车问题2年内不能解决。用车极度不方便，打算转让后打的。
转让价格计算：
形成资产价值：18.88万元
1、新精英增加设备价值：0.4万元
2、折旧费：18.28/（15*12）*10=1.0159万元（按国家规定的15年计算）
3、保险已使用部分：0.5/12*10=0.4166万元
4、五路一桥已摊销部分：0.04/12*10=0.0333万元
转让车辆净值：18.88-0.4-1.6-0.2万元
减：我认同的转让损失 0.7万元
转让价格：17.=16.5842万元。
车辆评价：请参考各媒体、网站。
私家车，保证能过户，各自承担自己应交纳的税费。最好是成都的客户。有意者请Email:,邓先生。可看车。
10:53:23回复(0)|支持(0)
上一条口碑：
下一条口碑：
车型评分：*
做出个总体评价吧
评价标题：*
必填，3-20个汉字
您的评价会对其他人有很大的帮助
填写个综述吧10-500汉字
您还需要输入10个汉字
选择口碑分类：
外观内饰操控动力售后保养
请输入验证码：
验证码有误
同步到微博&&
指导价：7.18-9.88万(待定)
市场价： 6.18-11.89万
类型：紧凑型
保修：5年/10万公里
擅长领域：
解答问题：个
被提问：次

我要回帖

更多关于 行情在绝望中产生 的文章

 

随机推荐