跳四跳七表格的生成

xinyu2ru • • 心情 • 1138 阅读
一句话解决问题：

x
 
1
下拉正常序列，替换 * 4 * 为空白，定位空单元格，删除空单元格，下行单元格上移
首先你要有一个表格软件，WPS也好，excel也好
新建一个表格，选中A2表格，填入数字1，点击选择 “填充”--“序列填充”
选择列，等差序列，步长1，终止值选一个比较大的数字
如下
选中a列，然后选中筛选
筛选完成之后全选，然后选中查找和选择，选择“定位条件”
            
选择可见单元格，点击”确定“，完成之后如下
   
然后选择键盘上的删除键，得到没有4的数值序列
先选中A列整列，
然后选择数据选项卡，选择删除重复数据
参数选A列，然后确定
删除空行完成。

1
 
1
Sub 宏 1()
2
    Set dic = CreateObject("Scripting.Dictionary")    '字典
3
    For i = 1 To 10000
4
        If Not i Like "*4*" Then dic.Add i, ""'如果不包含 “1”
5
    Next
6
    Range("a2").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys)     '从 A2 单元开始向下放置
7
End Sub
对宏功能感兴趣的也可以试试表格之家的这个宏代码↑
代码来源：http://club.excelhome.net/thread-801096-2-1.html

版权声明：
作者：xinyu2ru
链接：https://www.rxx0.com/motion/tiao-si-tiao-qi-biao-ge-di-sheng-cheng.html
来源：RUBLOG-分享我的生活
文章版权归作者所有，未经允许请勿转载。

THE END
分享
二维码
下一篇>>