请选择 进入手机版 | 继续访问电脑版

Excel完美论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

快捷登录

 
版块
版块
班级
班级
班级
班级
其它
其它
查看: 518|回复: 1

【Excel分享】如何把"1 2 3"拆分到3个单元格里?

[复制链接]

1万

积分

17

技术分

509

鲜花

管理员

佛山小老鼠

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

财富币
696365
学费币
3168
推广币
215507
学员红花
0
注册时间
2014-12-17

管理员基础技巧讲师函数讲师VBA编程讲师 透视表讲师

    购买在线课件和视频
    报班咨询联系电话
    Tel:186-6424-3619
    联系人:佛山小老鼠
    在线网络开设YY班级
    函数初级班
    函数中级班
    函数高级班
    VBA编程初级班
    VBA编程中级班
    VBA编程高级班
    透视表班
    290集视频
    525集excel视频大全
    189集免费excel视频
发表于 2018-3-12 17:54:22 | 显示全部楼层 |阅读模式
一键分享 一键分享
大家好,今天和大家分享“如何把"1 2 3"拆分到3个单元格里",下面我讲3种方法实现
一、方法1,分列
1、动画操作

11.gif
二、方法2,函数
1、公式截图
22.png
2、公式
=TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99))
3、公式解释
  • REPT(" ",99)产生99个空格
  • SUBSTITUTE($A1," ",REPT(" ",99))把空格替换成99个空格,让每一个数字之间拉大距离
  • MID(SUBSTITUTE($A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99)把每一个数字提取出来,然后用trim去掉前后多余的空格


三、方法3,vba代码实现
1、动画演示
33.gif
2、代码
Option Explicit
Sub 拆分()
    Dim z, arr1, arr2, arr3(1 To 10000, 1 To 10), x, y
    z = Cells(Rows.Count, 1).End(xlUp).Row '获取A列最后一个非空单元格的行号
    arr1 = Range("A1:A" & z) '把区域写于数组arr1
    For x = 1 To UBound(arr1) '循环数组arr1的行
        arr2 = Split(arr1(x, 1), " ") '按空格拆分后写于arr2
        For y = 0 To UBound(arr2) '循环数组arr2
            arr3(x, y + 1) = arr2(y) '把拆分后数据写于arr3
        Next y
    Next x
    [B1].Resize(10000, 10).Clear
    [B1].Resize(z, 10) = arr3 '把数组arr3读到单元格区域
End Sub


工作簿1.rar

15.57 KB, 下载次数: 6


手机扫码浏览
问题咨询交流,不在线时,可以加我微信,微信号18664243619
函数、VBA、透视表交流学习QQ群2801--7317--4,我的电话18664243619,我的QQ732243800,更多的学习也可以关注我们的公众号:vba18664243619
回复

使用道具 举报

408

积分

0

技术分

0

鲜花

中级会员

Rank: 3Rank: 3

财富币
2952
学费币
0
推广币
0
学员红花
0
注册时间
2017-3-29
    购买在线课件和视频
    报班咨询联系电话
    Tel:186-6424-3619
    联系人:佛山小老鼠
    在线网络开设YY班级
    函数初级班
    函数中级班
    函数高级班
    VBA编程初级班
    VBA编程中级班
    VBA编程高级班
    透视表班
    290集视频
    525集excel视频大全
    189集免费excel视频
发表于 2018-3-13 08:21:26 | 显示全部楼层

感谢楼主的无私分享!
回复 支持 反对

使用道具 举报

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

本版积分规则 快速回帖:

最近新开的班级:2018-6-11开函数初级班,周一、周三、周五晚上8点到10点上课      立即注册  登录 

手机微信——扫一扫 关注完美论坛公众号天天收到Excel分享

QQ|微信绑定|Archiver|手机版|Excel完美论坛 ( 粤ICP备14102225号  

GMT+8, 2018-6-22 19:00 , Processed in 0.119908 second(s), 53 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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