dear all大大 -
1. cells(5,3)=Q15108A-CO1-01-J001EM
cells(6,3)=Q15030A-CS5T1-01-T002 ............
2.小弟於 cells(5,18)書寫函數抓取=MID(C5,SEARCH("-",C5)+1,SEARCH("-0",C5)-SEARCH("-",C5)-1)
程式下啦均ok
3.今想轉換為 vba.
3.1 如圖一 mid部份寫弟書寫ok 但 SEARCH部份不會寫.如圖一Mid(Sheet2.Cells(X, 3), 9, 3)之 9 與 3
如何下vba
4.煩不吝賜教 thanks*10000
圖一Sub 程式VBA()
Y = Sheet2.[A65536].End(xlUp).Row
' On Error Resume Next
For X = 5 To Y
If 1 = 1 Then
Sheet2.Cells(X, 18) = Mid(Sheet2.Cells(X, 3), 9, 3)
End If
Next
End Sub |
發表於 2015-5-27 16:06
| 
