UC知道excel添加序号？？
来源：百度知道 编辑：UC知道 时间：2024/06/15 05:54:03
我已经编辑了文字，想后加上序号，比如像这样：
生日歌
挥着翅膀的女孩
青花瓷
婚礼进行曲
千里之外
然后把一列中的每行文字的前面自动加上序号，变成这样：
1生日歌
2挥着翅膀的女孩
3青花瓷
4婚礼进行曲
5千里之外
不用手工录入序号，请问有什么方法？
生日歌
挥着翅膀的女孩
青花瓷
婚礼进行曲
千里之外
然后把一列中的每行文字的前面自动加上序号，变成这样：
1生日歌
2挥着翅膀的女孩
3青花瓷
4婚礼进行曲
5千里之外
不用手工录入序号，请问有什么方法？
B1=ROW(A1)&A1
公式向下复制。
新建一个宏，
然后在里面写
'startRow 表的开始行号 假定A列行号为11，那么startRow =11
'endRow 表的结束行号 假定A列行号为13，那么endRow =13
dim j as integer
j=1
for i=startRow to endRow
sheets.Range("A" & i).value=j & trim(sheets.Range("A" & i).value))
j=j+1
end if
Next i
msgbox "修改完成喽~~~"
运行宏，完事如果不用了，可以删除它。
用不着宏吧？简单问题别弄复杂了，假定数据在A列，在b1输入：
=row(a1)&a1
公式下拉即可
如果觉得这样不太美观，公式改成：
=row(a1)&")"&a1
或者：
=row(a1)&"."&a1
用EXCEL里的"IF函数","COUNTA"函数就可以做到..
