求各位大虾帮忙解决一下vba的问题

wyx555xp

Sub 时间转化()
Dim i As Integer
For i = 2 To 401
  If InStr(Cells(i, 7), "天") > 0 Then
       Cells(i, 12).Formula = _
       "=left(g2,find(""天"",g2)-1)*24*3600 + mid(g2,find(""天"",g2)+1,find(""小"",g2)-find(""天"",g2)-1)*3600 + mid(g2,find(""时"",g2)+1,find(""分"",g2)-find(""时"",g2)-1)*60 + mid(g2,find(""分"",g2)+1,len(g2)-find(""分"",g2)-1)"
     ElseIf InStr(Cells(i, 7), "天") = 0 And InStr(Cells(i, 7), "小时") > 0 Then
       Cells(i, 12).Formula = _
       "=left(g2,find(""小"",g2)-1)*3600 + mid(g2,find(""时"",g2)+1,find(""分"",g2)-find(""时"",g2)-1)*60 + mid(g2,find(""分"",g2)+1,len(g2)-find(""分"",g2)-1)"
     ElseIf InStr(Cells(i, 7), "小时") = 0 And InStr(Cells(2, 7), "分") > 0 Then
       Cells(i, 12).Formula = _
       "=left(g2,find(""分"",g2)-1)*60 + mid(g2,find(""分"",g2)+1,len(g2)-find(""分"",g2)-1)"
     ElseIf InStr(Cells(i, 7), "分") = 0 And InStr(Cells(i, 7), "分") > 0 Then
       Cells(i, 12).Formula = "=left(g2,find(""秒"",g2)-1)"
  End If
  Next i
End Sub
目的是为了把导出的时长转化为秒，但由于导出的时长格式有xx天xx小时xx分xx秒，xx小时xx分xx秒，xx分xx秒，xx秒四种，如果只用Excel写的话每次都要筛选和写3次公式，很麻烦 所以想用vba一次性解决，以上代码能实现判断，但是公式里的g2行号不会变化，想请大虾帮忙解决一下问题，困扰一天了！

wyx555xp

求帮助，求解决，求蹂躏！

干杯冰寒

把g2用变量代替。

wyx555xp

干杯冰寒 发表于 2017-12-15 23:08
把g2用变量代替。

试过了  但是返回值在Excel里根本不识别，定义变量j 返回Excel的就是Gj.

jacky0202

"公式"&变量&“公式“，是不是这样啊

DADAYU

你的思路有问题，你只需要用函数就能调用日期时间单元格的对应数值，如A1单元格的内容为2018年01月21日15:05:10
那second（"A1"）.VALUE就是10

此类函数有
1        Now        一个函数，它返回当前系统的日期和时间。
2        Hour        一个函数，它返回一个介于0到23之间的整数，表示给定时间的小时部分。
3        Minute        一个函数，它返回0到59之间的整数，表示给定时间的分钟部分。
4        Second        一个函数，返回0到59之间的一个整数，表示给定时间的秒数部分。
5        Time        一个函数，它返回当前的系统时间。
6        Timer        一个函数，返回自上午12:00以来的秒数和毫秒数。
7        TimeSerial        一个函数，它返回小时，分钟和秒的特定输入的时间。
8        TimeValue        将输入字符串转换为时间格式的函数。

1        Date        一个函数，它返回当前的系统日期。
2        CDate        一个函数，将给定的输入转换为日期。
3        DateAdd        一个函数，它返回一个指定的时间间隔被添加的日期。
4        DateDiff        一个函数，它返回两个时间段之间的差异。
5        DatePart        一个函数，它返回给定输入日期值的指定部分。
6        DateSerial        函数，返回给定年份，月份和日期的有效日期。
7        FormatDateTime        一个函数，根据提供的参数格式化日期。
8        IsDate        无论提供的参数是否为日期，都返回一个布尔值的函数。
9        Day        一个函数，它返回一个1到31之间的整数，表示指定日期的某一天。
10        Month        一个函数，它返回一个介于1和12之间的整数，表示指定日期的月份。
11        Year        一个函数，它返回一个表示指定日期的年份的整数。
12        MonthName        一个函数，返回指定日期的特定月份的名称。
13        WeekDay        一个函数，返回一个整数(1到7)，表示指定日期的星期几。
14        WeekDayName        一个函数，返回指定日期的星期几名称。