我有一系列格式为 的数据2018-02-11/20:32:19
。而且,我无法使用公式进行计算,因为存在“/”,日期之间没有任何空格。这个“/”有时会造成应用障碍。我不需要“筛选”-“Ctrl+Alt+l”等选项和“数据”选项卡下的“排序”选项。我想知道我们是否可以这样做,就像在工作表 1 中粘贴这样的数据“2018-02-11/20:32:19”后,它会自动排序或在工作表 2 中排序。因为我们可以在工作表 2 中输入公式来处理它。
而且,它中间有 2 个空白行,因此再次存在一系列不同的数据。
请帮助我解决这个问题。
答案1
- 选择两列中的所有日期单元格。
- 将它们复制到剪贴板。
- 将它们粘贴到记事本中。
- 在记事本中,打开替换对话框并
/
用单个空格替换。(全部替换) - 在记事本中标记所有文本。
- 将其复制到剪贴板。
- 选择 Excel 左上角的日期。
- 将内容粘贴回 Excel。
现在数据已成为真实日期,您可以根据需要使用它们。
笔记:通过在原始 Excel 表之外执行搜索/替换,您可以保留/
其余单元格中的潜在字符。除了记事本,您还可以使用其他 Excel 表、其他文本编辑器等进行此操作。
答案2
日期没有问题,实际上它们是文本格式。
你曾提到,“我想知道我们是否可以这样做,比如在工作表 1 中粘贴数据“2018-02-11/20:32:19”后它会自动排序,或者在工作表 2 中粘贴。
我想向您推荐 VBA 代码,它将帮助您复制源数据并粘贴到您选择的单元格中,然后按升序排序。之后,您可以轻松地将它们粘贴到其他工作表中。
Private Sub CommandButton1_Click()
Dim xRg As Range
Set xRg = Application.InputBox("Select Cells:", "Select Entire Data Range", Selection.Address, , , , , 8)
xRg.Copy
ActiveSheet.Range("A25").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Sort key1:=Range("A25")
End Sub