w2m8 1mul 60y4 5bbd 2sey 00gc nt5b agy4 oucg 4oo2
书籍文库  |  文档资料  |  最近更新  |  MAP  |  TAG  | 
注册
手机版
就爱阅读网
当前位置:首页 > 电脑办公 > 办公软硬件 > 如何把'1 2 3'拆到3个单元格?

如何把'1 2 3'拆到3个单元格?

分享人:高天乐 来源:互联网 时间:2018-08-22 阅读:0
标签:怒火 7bbp 博悦娱乐平台官网


促销广告,你的Excel水平想达到我这水平吗?,你想快速提高自己的Excel水平,如果想,去购买我录制的视频

3月10至3月12日,购买Excel视频525集和290集两套只需150元,加我微信18664243619,微信红包支付,然后加我QQ732243800,发你视频

525集内容详情 525集Excel视频

290集内容详情290集函数案例Excel视频

大家好,今天和大家分享“如何把''1 2 3''拆分到3个单元格里?'',下面我讲3种方法实现

一、方法1,分列

1、动画操作


二、方法2,函数

1、公式截图

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、动画演示

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


百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网92to.com,您的在线图书馆!

热点阅读

网友最爱