分享我的生活
分享能使人快乐

跳四跳七表格的生成

一句话解决问题:

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

赞(0) 打赏
未经允许不得转载:RUBLOG-分享我的生活 » 跳四跳七表格的生成

我想说 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏