- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2026-2-12
  
|
DEAR ALL大大
1A1= -001417Y+002677
1.1使用函數取=MID(A1,1,7) 秀出 -001417
1.2使用VBA如圖一取出 值變成 -1417
2.請教如何改善煩不吝賜教 THANKS*10000
圖一
Sub D剖析A()
Sheet62.Visible = True
Sheet62.Select
Range("A1").Select
Sheet62.[D1:E65536].ClearContents
X = Sheet62.[C65536].End(xlUp).Row
For M = 1 To X
Sheet62.Cells(M, 4) = Mid(Sheet62.Cells(M, 1), 1, 7)
Next
End Sub |
|