非要VBA,用公式也可以啊!=left(c1,len(c1)-2)*60 & "分钟" VBA的话: sub tt() dim i i=1 do cells(i,"C")=LEFT(CELLS(I,"C"),LEN(CELLS(I,"C"))-2)*60 & "分钟" I=I+1 LOOP UNTIL cells(i,"C")="" END SUB追问
不好使
第2个回答 2013-06-06
不需要VBA,用公式就行了,=SUBSTITUTE(C1,"小时","")*60
第3个回答 2013-06-06
For x = 1 To 10 z = Mid(Cells(x, 3).Value, 1, Len(Cells(x, 3).Value) - 2) z = z * 60 Next追问