UC知道请教OFFICE高手,这组数据怎么处理?
来源：百度知道 编辑：UC知道 时间：2024/06/27 05:14:34
"2008101408","056"
"2008101409","745"
"2008101410","197"
"2008101411","664"
"2008101412","482"
"2008101413","154"
"2008101414","882"
"2008101415","032"
"2008101416","223"
"2008101417","104"
"2008101418","767"
"2008101419","500"
"2008101420","000"
"2008101421","133"
"2008101422","922"
"2008101423","495"
"2008101424","929"
"2008101425","958"
"2008101426","656"
"2008101427","848"
"2008101428","083"
"2008101429","552"
"2008101430","223
"2008101409","745"
"2008101410","197"
"2008101411","664"
"2008101412","482"
"2008101413","154"
"2008101414","882"
"2008101415","032"
"2008101416","223"
"2008101417","104"
"2008101418","767"
"2008101419","500"
"2008101420","000"
"2008101421","133"
"2008101422","922"
"2008101423","495"
"2008101424","929"
"2008101425","958"
"2008101426","656"
"2008101427","848"
"2008101428","083"
"2008101429","552"
"2008101430","223
还是不太明白目的是什么
可以。
如果是电子表格可以用MID函数求出。
假设第一个三位数是b1,
1、在c1输入=right(b1,1)
2、在c2输入=c1 & right(b2,1)
3、从c2向下填充，在最后一行得到结果
4、同理第二位 用mid(b1,2,1) ；第三位 用left(b1,1)
一个单元格的长度在2003应该有限制的吧，要不用vba写，输出到一个文本文件中去
把数据贴到A1列
B1=SUBSTITUTE(A1,LEFT(A1,14),"")
C1=MID(B1,1,1)
D1=MID(B1,2,1)
E1=MID(B1,3,1)
把BCDE列的公式拉到最后一行,可以直接双击填充柄
再使用用宏
Sub s()
For i = 3 To 5
t = ""
e1 = [a65536].End(xlUp).Row
For ii = 1 To e1
t = t & Cells(ii, i)
Next
Cells(e1 + 1, i) = t
Next
即在最后一行显示出结果
2007下测试成功
希望对你有用
End Sub