如上图,要自动自成A列合并单元格后的添加序号问题,有如下6种方法可实现。首先选中要输入序号的所有合并单元格区域(A4:A16):
1、在编辑栏录入=max($A$3:A3)+1,按CTRL+回车键。
2、在编辑栏录入=max($A$1:A3)+1,按CTRL+回车键。
3、在编辑栏录入=count($A$3:A3)+1,按CTRL+回车键。
4、在编辑栏录入=count($A$1:A3)+1,按CTRL+回车键。
5、在编辑栏输入=MAX(INDIRECT("$A$1:A"&ROW()-1))+1,按CTRL+回车(ENTER)。
6、制作VBA按钮,运行按钮,省事了得。模块代码如下:
Sub xh()
K = 0
XR = ActiveSheet.UsedRange.Rows.Count
Range("A4:A" & XR) = 1
For j = 4 To XR
If Cells(j, 1) <> "" Then
K = K + 1
Cells(j, 1) = K
End If
Next
End Sub
当你的初始序号单元格是不定的。如果你的是A2,就把这段代码中的A4换成A2。
集中精力,学学EXCEL的函数和VBA,就会提高工作效率的。愿大家都来琢磨EXCEL。
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。