VBA合并excel中的单元格答案

【问题标题】：VBA to merge cells in excelVBA合并excel中的单元格
【发布时间】：2013-11-23 16:12:31
【问题描述】：

我有一个如下所示的 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 ║
╚═════╩════════╩═══════════════════╩═════════╩═════════════╝

【问题讨论】：

罗伯特，您发现这里发布的任何内容有用吗？如果是，请给它评分。

标签： excel excel-2007 excel-formula vba

【解决方案1】：

你有两个任务要执行。

将日期和时间合并到一个单元格中。这只需通过（单元格 C1 包含 B1 中使用的公式（作为文本）。）

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

然后您可以将结果（作为值）和格式复制到目标列。
删除多余的行。您可以使用下面的代码（确保将重复次数从 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

【讨论】：