UC知道excel将一个单元格的数据分成多个单元格,单元格里的数据是按回车键来分开的
来源：百度知道 编辑：UC知道 时间：2024/06/04 11:56:59
"aaaa=1
bb=2
cc=3
dd=4
"
一个单元格的数据是象上面那样,现在我需要将这个改成下面那样,一个数据占一个单元格用什么方法好批量处理.或者VBA怎么来判断回车键,麻烦简单写一下程序的流程和要用到的命令.
1 2 3 4
我这里有上万个第一个例子的单元格,现在想把这些单元格里的数据分到另一个sheet里去,格式都是第二个例子那样.在VBA里编程序,就是不清楚怎么将一个单元格的东西分出去.chr(10)我也知道,但是一个单元格里也有十几个回车,以这些回车来将这些数据分开的.能不能将里面的回车当做一个字符用,那样的话还可以解决.那位高手能说明白一下吧,怎么编程才能分开.
alt+回车可以在一个单元格里换行的。
呵呵，自己解决了。
Dim y, b, d, i, j As Integer, a As String 'i字符的起始位置，j第几行数据，y保存现在到第几个字符了n。
'b是第一个单元的行列
For j = 1 To 100
Sheets("sheet1").Select
a = Cells(j, 1).Value
'Range("a1").Select
'Cells(1, 1) = a
b = 1
i = 1
d = Len(a)
For y = 1 To d
'For i = 1 To 100
If Mid(a, y, 1) = Chr(10) Then
Sheets("sheet2").Select
Cells(j, b) = Mid(a, i, y - i - 1)
b = b + 1
i = y + 1
End If
Next y
bb=2
cc=3
dd=4
"
一个单元格的数据是象上面那样,现在我需要将这个改成下面那样,一个数据占一个单元格用什么方法好批量处理.或者VBA怎么来判断回车键,麻烦简单写一下程序的流程和要用到的命令.
1 2 3 4
我这里有上万个第一个例子的单元格,现在想把这些单元格里的数据分到另一个sheet里去,格式都是第二个例子那样.在VBA里编程序,就是不清楚怎么将一个单元格的东西分出去.chr(10)我也知道,但是一个单元格里也有十几个回车,以这些回车来将这些数据分开的.能不能将里面的回车当做一个字符用,那样的话还可以解决.那位高手能说明白一下吧,怎么编程才能分开.
alt+回车可以在一个单元格里换行的。
呵呵，自己解决了。
Dim y, b, d, i, j As Integer, a As String 'i字符的起始位置，j第几行数据，y保存现在到第几个字符了n。
'b是第一个单元的行列
For j = 1 To 100
Sheets("sheet1").Select
a = Cells(j, 1).Value
'Range("a1").Select
'Cells(1, 1) = a
b = 1
i = 1
d = Len(a)
For y = 1 To d
'For i = 1 To 100
If Mid(a, y, 1) = Chr(10) Then
Sheets("sheet2").Select
Cells(j, b) = Mid(a, i, y - i - 1)
b = b + 1
i = y + 1
End If
Next y
回车可通过 CHAR(10)判断。
如你上述的文字在A1, FIND(CHAR(10),A1)=7
供参考。
数据 分列 固定列宽
excel回车后就自动跳转到下一个单元格了啊！你确定是回车分开的？
如果不是就简单了，用“数据”，“分列”，然后选中“空格键”分列就可以了。