[已解决]請問老師如何將數字分別分離出來

e2solo

如何將數字分別分離出來

97.10.23		97	10	23
100.11.2		100	11	2
98.1.2		98	1	2
99.10.15		99	10	15

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-8 19:28

e2solo 发表于 2012-2-8 19:12
有勞版主
有勞版主

1. Sub 按钮1_Click()
   
2.     Dim A, B, i, j, tmp
   
3.     A = Range([b2], Range("b2").End(xlDown))
   
4.     ReDim B(1 To UBound(A), 1 To 3)
   
5.     For i = 1 To UBound(A)
   
6.         tmp = Split(A(i, 1), ".")
   
7.         For j = 1 To UBound(tmp) + 1
   
8.             B(i, j) = tmp(j - 1)
   
9.         Next j
   
10.     Next i
    
11.     [h2].Resize(UBound(B), UBound(B, 2)) = B
    
12. End Sub

复制代码

Book3.rar (16.36 KB, 下载次数: 8)

2012-2-8 19:27 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

技巧方法：

1) 选中包含点的列
2) 数据- 分列，分隔符号，其它中输入"."
3) 完成

爱疯

Sub a()
    Application.DisplayAlerts = False
    Columns("C:C").TextToColumns OtherChar:="."
End Sub

如果周围区域不受影响的话，可以分列。
颜色部分自己修改

free1024

数据---分列，是不错的选择。

e2solo

爱疯 发表于 2012-2-8 18:32
Sub a()
    Application.DisplayAlerts = False
    Columns("C:C").TextToColumns OtherCh ...

版主:
不好意思
我是想分離出來，但不是放在同一列，是要在別的工作表使用
煩請版主再一次費心

爱疯

请上传附件，不然很不方便

e2solo

爱疯 发表于 2012-2-8 18:59
请上传附件，不然很不方便

有勞版主
有勞版主

爱疯

e2solo 发表于 2012-2-8 19:12
有勞版主
有勞版主

1. Sub 按钮1_Click()
   
2.     Dim A, B, i, j, tmp
   
3.     A = Range([b2], Range("b2").End(xlDown))
   
4.     ReDim B(1 To UBound(A), 1 To 3)
   
5.     For i = 1 To UBound(A)
   
6.         tmp = Split(A(i, 1), ".")
   
7.         For j = 1 To UBound(tmp) + 1
   
8.             B(i, j) = tmp(j - 1)
   
9.         Next j
   
10.     Next i
    
11.     [h2].Resize(UBound(B), UBound(B, 2)) = B
    
12. End Sub

复制代码

Book3.rar (16.36 KB, 下载次数: 8)

2012-2-8 19:27 上传

点击文件名下载附件

windimi007

e2solo 发表于 2012-2-8 19:12
有勞版主
有勞版主

看看动画是否符合要求吧！还是楼主一定要用vba完成？