用vba取excel一个单元格的数字项目
现在excel中的c列存放的是时间,现在想将数据取出来转换成分钟。c列的格式是前面是数字,后面是“小时”。如c1:0.5小时,c2:3.5小时,c3:1小时,c4:185...
现在excel中的c列存放的是时间,现在想将数据取出来转换成分钟。c列的格式是前面是数字,后面是“小时”。如c1:0.5小时,c2:3.5小时,c3:1小时,c4:185.5小时……现在想用vba将c列取出来转换成分钟,该如何写?谢谢
不要公式,公式我自己会做,现在需要vba,vba!谢谢 展开
不要公式,公式我自己会做,现在需要vba,vba!谢谢 展开
3个回答
展开全部
非要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
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
追问
不好使
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不需要VBA,用公式就行了,=SUBSTITUTE(C1,"小时","")*60
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
For x = 1 To 10
z = Mid(Cells(x, 3).Value, 1, Len(Cells(x, 3).Value) - 2)
z = z * 60
Next
z = Mid(Cells(x, 3).Value, 1, Len(Cells(x, 3).Value) - 2)
z = z * 60
Next
追问
z是什么?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询