如何把一行数据拆分为多行

huanglicheng · 发表于 2018-3-8 08:25

参考这个功能
http://club.excelhome.net/forum. ... p;page=1#pid9327385

沉寂哥 · 发表于 2018-3-8 17:04

数据分列就可以了吧

wmm19890823 · 发表于 2018-12-17 16:28

新手，自己发帖不太会，请教下个各位大神，这个数据如何拆分，每个单元格都是8位数字

丶Rainful · 发表于 2018-12-17 22:27

Sub 转换()

Dim fengefu As String, s As String
Dim n As Long, i As Long, j As Long, l As Long
Dim a As Long, b As Long, c As Long

fengefu = Application.InputBox("请输入分隔符")

Application.Range("a1", Range("a1").End(xlDown)).Select
n = Selection.Rows.Count

For i = 1 To n
      l = Len(Selection.Cells(i))
      a = 0
      b = 1
      For j = 1 To l
         s = Mid(Selection.Cells(i), j, 1)
         If fengefu = s Then
            b = j
            c = Mid(Selection.Cells(i), a + 1, b - a - 1)
            Selection.Cells(1).End(xlDown).Offset(1, 0).Value = c
            Selection.Cells(1).End(xlDown).Offset(0, 1).Value = Selection.Cells(i).Offset(0, 1)
            Selection.Cells(1).End(xlDown).Offset(0, 2).Value = Selection.Cells(i).Offset(0, 2)
            a = b
         ElseIf j = l Then
            b = j
            c = Mid(Selection.Cells(i), a + 1, b - a)
            Selection.Cells(1).End(xlDown).Offset(1, 0).Value = c
            Selection.Cells(1).End(xlDown).Offset(0, 1).Value = Selection.Cells(i).Offset(0, 1)
            Selection.Cells(1).End(xlDown).Offset(0, 2).Value = Selection.Cells(i).Offset(0, 2)
         End If
      Next
Next

End Sub

有一点条件  就是我的代码是从A1开始  如果你会修改的话  把起始单元格调整一下，另外就是数据下面不要留任何东西

小小鸟前滚翻 · 发表于 2018-12-18 22:49

本帖最后由小小鸟前滚翻于 2018-12-18 22:52 编辑

统一的分隔符瞬间就能做完。现在表里分隔符太多太乱，不是不能做，而是做出来只是你这个表用，没有通用性，意义不大

wmm19890823 · 发表于 2018-12-19 17:04

小小鸟前滚翻发表于 2018-12-18 22:49
统一的分隔符瞬间就能做完。现在表里分隔符太多太乱，不是不能做，而是做出来只是你这个表用，没有通用性， ...

求大神指点一二

小小鸟前滚翻 · 发表于 2018-12-21 11:20

本帖最后由小小鸟前滚翻于 2018-12-21 12:59 编辑

抽空写了一段，还是尽量向通用性靠近。选定区域就能分.简单分隔的不同的分隔符的要多拆几次，区间拆分要放在最后

sobili · 发表于 2018-12-22 15:58

本帖最后由 sobili 于 2018-12-22 16:44 编辑

wmm19890823 发表于 2018-12-17 16:28
新手，自己发帖不太会，请教下个各位大神，这个数据如何拆分，每个单元格都是8位数字

请问这是楼主您要的结果吗？

一行数据拆分为多行.rar (26.67 KB, 下载次数: 85)

wmm19890823 · 发表于 2018-12-24 09:37

sobili 发表于 2018-12-22 15:58
请问这是楼主您要的结果吗？

对的，能提供下代码么，大神

wmm19890823 · 发表于 2018-12-25 14:30

小小鸟前滚翻发表于 2018-12-21 11:20
抽空写了一段，还是尽量向通用性靠近。选定区域就能分.简单分隔的不同的分隔符的要多拆几次，区间拆分要放 ...

谢谢，大神

		自动登录	找回密码
密码			免费注册

[求助] 如何把一行数据拆分为多行

评分

评分