1

我有一个如下所示的 excel 表。将 sno 列视为 Excel 编号。所以除了 DateTime 之外的所有列都被合并了。我想合并 DateTime 单元格并想删除空记录。我尝试了一些公式，但没有成功。这可能吗

我尝试了下面的公式，但它给出了奇怪的结果，因为我认为日期时间值。

=INDEX($A$1:$A$<ENDROW>,(B1-1)*2+1,1)&" "&INDEX($A$1:$A$<ENDROW>,(B1-1)*2+2,1)

我有这个：

╔═════╦════════╦══════════╦═════════╦═════════════╗
║ sno ║ Action ║ DateTime ║ User ID ║    Name     ║
╠═════╬════════╬══════════╬═════════╬═════════════╣
║   1 ║ INSERT ║ 8-Nov-13 ║ childsk ║ Keri Childs ║
║   2 ║        ║ 16:06:43 ║         ║             ║
║   3 ║ INSERT ║ 8-Nov-13 ║ childsk ║ Keri Childs ║
║   4 ║        ║ 16:04:27 ║         ║             ║
╚═════╩════════╩══════════╩═════════╩═════════════╝

预期输出：

╔═════╦════════╦═══════════════════╦═════════╦═════════════╗
║ sno ║ Action ║     DateTime      ║ User ID ║    Name     ║
╠═════╬════════╬═══════════════════╬═════════╬═════════════╣
║   1 ║ INSERT ║ 8-Nov-13 16:06:43 ║ childsk ║ Keri Childs ║
║   2 ║ INSERT ║ 8-Nov-13 16:04:27 ║ childsk ║ Keri Childs ║
╚═════╩════════╩═══════════════════╩═════════╩═════════════╝
4

1 回答 1

0

您有两个任务要执行。

  1. 将日期和时间合并到一个单元格中。这只需通过（单元格 C1 包含 B1 中使用的公式（作为文本）。） 在此处输入图像描述

    并将 B1 格式化为自定义 -> d-mmm-yy hh:mm:ss。

    然后，您可以将结果（作为值）和格式复制到目标列。

  2. 删除多余的行。您可以使用下面的代码（确保将重复次数从 10 更改为您需要的任何值）。

.

Sub del_skip_rows_repeat_caller()
    Call del_skip_rows_repeat(1, 10)
End Sub
Sub del_skip_rows_repeat(nrows As Integer, nrep As Integer)
    Dim i As Integer
    For i = 1 To nrep
      Call del_skip_rows(nrows)
    Next i
End Sub
Sub del_skip_rows(nrows As Integer)
    Dim rng As Range
    Set rng = Range(Selection, Selection.Offset(nrows - 1, 0)).EntireRow
    'rng.Select
    rng.Delete Shift:=xlUp
    Set rng = Selection.Offset(1, 0).Cells(1, 1)
    rng.Select
End Sub
于 2013-11-11T18:59:15.097 回答