Question

如何在excel中提取2019年6月5日 10时25分21秒的小时，也是10时单独提取出来？

Answer 1

说实话,你这个文本,是实际数据通过格式显示出来的,还是直接就是文本.
如果就是文本,可以通过MID函数来解决.
如果是时间格式,也就是实际是数字,则可以使用HOUR函数来处理.有时候EXCEL虽然显示的是同样的,但是实际存储的数据是不同 的.
你可以选中单元格,如果编辑栏内显示的是 2019-6-5 10:25:21 这样的,就必须使用HOUR函数来提取.
例如 =HOUR(A1)
这个结果得出来结果是数字 10 ，如果你想让它显示成 10 时，则可以设置自定义数字格式 0"时"
以上公式得出的结果可以参与任何数学运算。
如果编辑栏内显示的就是你所示的文本, 那么就需要使用MID函数来提取。
例如 =MID(A1,FIND(" ",A1)+1,FIND("时",A1)-FIND(" ",A1))
这个公式得出的结果是文本 10时
这个公式不可以参与数学运算。如果要参与数学运算则需要去掉时字
如果想得到 10 的话，可以用如下公式：
=MID(A1,FIND(" ",A1)+1,FIND("时",A1)-FIND(" ",A1)-1)
这个结果可以参与加减法乘除以及乘方开方的运算，但是用SUM公式求和的时候，则会被认为是0，因为这个结果是文本型的。文本型的数字参与六则运算的时候会被转变成数字，但是如果放在SUM函数中自动求和的时候，则会被作为文本忽略。如果要想用SUM也计算进去，可以在外边套一个VALUE函数，公式为：
=VALUE(MID(A1,FIND(" ",A1)+1,FIND("时",A1)-FIND(" ",A1)-1))
因为你的问题问得不十分准确，所以需要回答这么多。具体的选项你自己看哪条适合你 。
注意最后这几个公式，双引号内是有空格存在的，查找的是日和时中间的那个空格。

Answer 2

Sub 提取()

Dim tt As String

Set objRegx = CreateObject("vbscript.regexp")

objRegx.Global = True

objRegx.Pattern = "日\s*(\d+)"

For i = 1 To Sheet1.[a1048576].End(3).Row

    If objRegx.test(Sheet1.Cells(i, 1)) Then

       Sheet1.Cells(i, 2) = objRegx.Execute(Sheet1.Cells(i, 1))(0).SubMatches(0)

    Else

    Sheet1.Cells(i, 2) = ""

    End If

Next i

End Sub

Answer 3

第一个是错的。

第二个只适合小时数是两位的情况。

第三个，一位或二位的小时数都适合。

=HOUR(RIGHT(A1,LEN(A1)-FIND(" ",A1)))

Answer 4

如果是标准的日期时间格式，可以直接用：=HOUR(A1)提取出小时来，如果是文本格式，需要用MID函数提取：=--MID(A1,11,2)。

Answer 5

在要提取的单元格输入公式：=HOUR(A1)