求vba代码,在鼠标选定范围内填充序号。肯定是某一列中的一部分,但是其中包含多个合并单元格。从上往

求vba代码,在鼠标选定范围内填充序号。肯定是某一列中的一部分,但是其中包含多个合并单元格。从上往下填充1,2,3,4....n。只要vba代码,不要公式或别的方法。效果... 求vba代码,在鼠标选定范围内填充序号。肯定是某一列中的一部分,但是其中包含多个合并单元格。从上往下填充1,2,3,4....n。只要vba代码,不要公式或别的方法。
效果如图这样的。所在行列不固定,总之选定范围后执行宏,会自动填充序号就行。
展开
 我来答
香格里拉稻草人
2015-11-05 · TA获得超过385个赞
知道小有建树答主
回答量:494
采纳率:66%
帮助的人:379万
展开全部

看图,选中工作表任何单元格区域,不管有没有合并单元格均自动填写序号。选中二个以上列不填写序号。代码在附件。


追问
效果没错但我要的是vba代码以便做成宏
追答

vba代码在附件中,源码是开放的,你下载附件就有代码了

sbpl007
2015-11-05 · TA获得超过654个赞
知道小有建树答主
回答量:560
采纳率:50%
帮助的人:465万
展开全部

看是不是附件提效果

追问
是,但是我要的是vba代码
追答
Sub tt()
Dim rng As Range, k%
k = 1
For Each rng In Selection
rng = k
If Not (rng.MergeCells) Then k = k + 1
If rng.MergeCells And rng "" Then
k = k + 1
End If
Next
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式