- 帖子
- 5
- 主題
- 2
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 註冊時間
- 2015-12-5
- 最後登錄
- 2016-4-27
|
希望將A欄 分割成B欄數字 C欄文字 感恩
Sub 分割()
Dim i As Integer
With Sheet2
.Cells(1, 2) = "編號"
.Cells(1, 3) = "名稱"
For i = 2 To .Cells(65536, 6).End(xlUp).Row
Sheet2.Cells(i, 2) = Split(.Cells(i, 1), " ")(0)
Sheet2.Cells(i, 3) = Split(.Cells(i, 1), " ")(1)
Next i
End With
End Sub |
|
發表於 2015-12-5 11:48
| 
