设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 742|回复: 4

[综合应用] 单元格内容批量换行和编号

[复制链接]
发表于 2018-6-10 17:11:18 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位老师,我现在有很多表,里面的内容编辑的时候因为不规范,很多内容都放在了一个单元格里,而且里面的编号混乱,现在需要把单元格里的内容,都强制换行,然后重新编号,我选了其中一列,文件在附件里,效果是图片里展示的,谢谢!
图.png

文件.zip

11.41 KB, 下载次数: 8

发表于 2018-7-31 15:03:25 | 显示全部楼层
做好了,操作步骤比较多,涉及Word、Excel函数和操作技巧

单元格内批量换行和编号.zip

12.8 KB, 下载次数: 10

评分

参与人数 1魅力值 +5 收起 理由
风流雅痞黄龙月 + 5 耐心解答:)

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2018-10-21 09:55:22 | 显示全部楼层
你也是石化安全部门的
回复 支持 反对

使用道具 举报

发表于 2018-10-22 16:53:59 | 显示全部楼层
有没有详细操作步骤可以分享
回复 支持 反对

使用道具 举报

发表于 2018-12-20 14:52:08 | 显示全部楼层
见代码:
Private Sub CommandButton1_Click()
  For h = 6 To Range("a65536").End(xlUp).Row
    bcf = Replace(Cells(h, 2), Chr(10), "")
    bcf = Replace(bcf, "。", "。#")
    bcf = Split(bcf, "#")
    For js = LBound(bcf) To UBound(bcf) - 1
      gd = Split(bcf(js), ".")(UBound(Split(bcf(js), ".")))
      jg = jg & js + 1 & "." & gd & Chr(10)
    Next js
    Cells(h, 3) = jg
    jg = ""
  Next h
End Sub

文件.rar

19.25 KB, 下载次数: 1

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2019-3-23 06:28

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表