> 馆藏中心

EXCELVBA又来请教了?EXCELVBA又来请教了,谢谢大家

来源:新浪爱问 编辑:杨丽

是否可以如此理解:从离A1最远的单元格A15开始,>1的计数累加1填到A1,=1的不管,的计数直接变为0?如此的话,可以简化为:查找离A1最近的一个0所在单元格到A1之间>1的数的个数,填到A1中www.179s.com防采集请勿采集本网。

试试行不行:Option ExplicitSub 序号()Dim rng As Range, i%, k%, r%, st As Stringk = 1For Each rng In Selectionr = rng.RowIf Rows(r & ":" & r).Hidden = False Thenst = st & rng.Offset(, -1) & "/" & kk = k + 1End IfNextWith CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").SetText st.PutInClipboardEnd WithEnd Sub

假设你的数据区域是B2:Z1000,在该区域之外的某个单元格中输入公式 mysum(B2:Z1000) 就行了。

试试行不行:Option ExplicitSub 序号()Dim rng As Range,i%,k%,r%,st As Stringk=1For Each rng In Selectionr=rng.RowIf Rows(r&":"&r).Hidden=False Thenst=st&rng.Offset(,-1)&"/"&kk=k+1End IfNextWith CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")SetText stPutInClipboardEnd WithEnd Sub内容来自www.179s.com请勿采集。

本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。本文《EXCELVBA又来请教了?EXCELVBA又来请教了,谢谢大家》转载自新浪爱问,版权归原作者所有,若侵权请联系:E-MAIL:513175919@qq.com
违法违规信息请立即联系本网可获得现金奖励,TEL:1-8-2-1-0-2-3-3-3-8-1(电话仅供违法违规信息举报,侵权类信息请EMAIL。)

www.179s.com false 互联网 http://www.179s.com/n/rmpsl/3f4MpSLL1c13z.html report 1034 试试行不行:Option ExplicitSub 序号()Dim rng As Range, i%, k%, r%, st As Stringk = 1For Each rng In Selectionr = rng.RowIf Rows(r & ":" & r).Hidden = False Thenst = st & rng.Offset(, -1) & "/" & kk = k + 1End IfNextWith CreateObject("new:{

你可能还关注

热门图片

经济金融企业管理法律法规社会民生科学教育降生活体育运动文化艺术电子数码电脑网络娱乐休闲行政地区心理分析医疗卫生