记录一个偏门excel 按照行数来分表
公司没有office 只有wps ,而wps会员自带分表。
在网上找到了一个VB 代码 可以使用在excel上。
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
b = InputBox("请输入分表行数")
bt = 1 'title
WJhangshu = b
原创
2021-05-12 13:20:09 ·
262 阅读 ·
0 评论