有没有其他方法可以在 VBA 中第二次出现 dateTime？
汉娜
如何使用 VBA 在字符串中搜索最后一次出现的日期时间？
例如，给定以下示例： 
在我下面的示例中，在 A 列中，有一些带有日期时间戳记的笔记。我需要获取最后一次出现的日期时间。如果只有笔记只包含 1 个日期时间，那么我需要得到它。预期输出在 B 列中。
我试图获取日期时间，但它是第一次出现。请参阅下面的代码：
Sub test()
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(x, 2).Value = Left(Cells(x, 1).Value, 19)
Cells(x, 2).Select
Selection.NumberFormat = "yyyy-mm-dd hh:mm:ss"
Next x
End Sub
瑞恩·怀尔德
我相信这应该做你正在寻找的。您可以在拆分单元格内容后向后循环，并在找到第一个有效日期时退出。
Option Explicit
Private Function GetLastDate(TextRange As Range) As String
Dim textToParse As String: textToParse = TextRange.Value
Dim textArray As Variant: textArray = Split(textToParse, vbLf)
Dim possibleDate As Variant
Dim i As Long
Dim j As Long
Const textToSplit = " - "
'Loop backwards
For i = UBound(textArray) To LBound(textArray) Step -1
'A Dash Exists
If (InStr(1, textArray(i), textToSplit) > 0) Then
possibleDate = Split(textArray(i), textToSplit)
'Loop forwards
For j = LBound(possibleDate) To UBound(possibleDate)
'If it is a date exit
If IsDate(Trim(possibleDate(j))) Then
GetLastDate = Trim(possibleDate(j))
Exit Function
End If
Next
End If
Next
End Function
Sub Example()
Dim rng As Range: Set rng = ThisWorkbook.Sheets("Sheet1").Range("a1")
Debug.Print "the last date is: " & GetLastDate(rng)
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
VBA-获取没有内置功能的第二次修改文件（FSO）
- 2
在VBA中搜索字符串的第二次出现
- 3
如果我两次调用C＃DateTime.UtcNow，是否可以保证在第二次调用中获得更晚的时间？
- 4
在PostgreSQL的字符串中返回第二次出现之前的所有内容
- 5
有没有其他方法可以删除jquery中的类？
- 6
除了<br />，还有没有其他方法可以打破html中的行？
- 7
有没有其他方法可以解决python中的Remove character？
- 8
访问VBA与Excel进行交互，第二次出现错误91
- 9
访问VBA与Excel进行交互，第二次出现错误91
- 10
jQuery的加载器没有第二次出现
- 11
有没有其他方法可以在C ++中填充数组而无需向量
- 12
有没有其他方法可以使用CAS操作在Java中编写同步块？
- 13
有没有其他方法可以在C ++中填充数组而无需向量
- 14
有没有其他方法可以在Python中管理n维数组/矩阵/列表的值分配？
- 15
shmat() 等是如何在 Linux 内核中实现的。有没有其他方法可以共享内存？
- 16
除了使用表格之外，还有其他方法可以在 EXCEL VBA 中存储文件夹路径吗？
- 17
如何使用sed命令在第二次出现之前替换所有内容？
- 18
如何在第二次出现特定字符后删除所有内容？
- 19
没有收到第二次外出答复
- 20
第二次没有调用 Redux 操作
- 21
第二次单击时，jQuery中没有函数错误
- 22
为什么在多选列表中第二次没有选择该选项？
- 23
函数没有在第二次完成 `hist` 函数中的执行
- 24
有没有其他方法可以在Xcode 5中查看iOS模拟器/我可以正确查看我的按钮吗？
- 25
如何在所有行和列中第二次出现分隔符后删除分隔符和后续字符串
- 26
jQuery .bind方法第二次未激活？
- 27
范围 .cells 的选择方法在第二次失败
- 28
除了.each（）函数以外，还有没有其他方法可以使用jQuery将输入字段中的信息收集到数组中？
- 29
除了.each（）函数之外，还有没有其他方法可以使用jQuery将输入字段中的信息收集到数组中？
我来说两句