mysql - excel vba - 根据包含日期和时间的相邻单元格添加带有日期的表格列

Question

我有一个 Excel 表格(“Table1”)，共有 4 列。第三列和第四列包含格式化为显示日期和时间的“上类打卡”和“打卡下类”信息。例如:

 6/3/2016 10:54:52 AM

我想在这里做两件事...首先，我想创建一个新的第三列，仅读取日期，格式为“d-mmm”。这应该与现在第 4 列中找到的日期匹配。

我想做的第二件事是将文本的日期部分从现在的第 4 列和第 5 列中取出。因此，最后，示例数据行可能如下所示(第 3:5 列):

    C,           D,          E
7-Jun, 10:54:52 AM, 4:59:44 AM

这是我到目前为止的代码:

Sub test()

Dim currentSht As Worksheet
Dim lst As ListObject

Set curretnSht = ActiveWorkbook.Sheets(1)
Set lst = currentSht.ListObjects("Table1")

lst.ListColumns.Add Position:=3
'Not really sure how to do the rest
End Sub

Answer 1

这不是 Excel 的方式。日期是数字，0 代表 1/1/1900。加 1 后，第二天您将得到一小时的值 1/24 。
您的方法的最大问题是 Excel 您停止编辑单元格 Excel 评估单元格值。它仍然看起来像 7 - Jun，但 Excel 更改了单元格格式并将单元格值更改为 7 - Jun，即 6/7/216。最好让所有单元格都等于同一日期。只需更改单元格格式即可显示您想要的结果。如果您需要计算月份，请使用工作表函数来执行此操作。 =月份(A1)