Как отсортировать записи «2018-02-11/20:32:19» в Excel?

Question

У меня есть ряд данных в формате 2018-02-11/20:32:19 . И я не могу работать с формулой, потому что "/" присутствует без пробела между датой. Это "/" некоторое время создает барьер для применения. Мне не нужны такие параметры, как фильтр - "Ctrl+Alt+l" и опция сортировки на вкладке данных. Я хочу знать, можем ли мы сделать это так, как после вставки таких данных «2018-02-11/20:32:19» в лист 1, он автоматически сортируется или в листе 2. Как мы можем ввести формулу в листе 2, чтобы работать над этим.

А также, у него есть 2 пустых строки между ними, и снова такая серия различных данных присутствует.

Пожалуйста, помогите мне выйти из этого вопроса.

Answer 1

1. Выберите все ячейки даты в обоих столбцах.
2. Скопируйте их в буфер обмена.
3. Вставьте их в блокнот.
4. В Блокноте откройте диалог замены и замените / одним пробелом. (Заменить все)
5. Отметить весь текст в блокноте.
6. Скопируйте его в буфер обмена.
7. Выберите верхнюю левую дату в Excel.
8. Вставьте содержимое обратно в Excel.

Теперь данные становятся точными датами, и вы можете работать с ними, как вам нужно.

Примечание: выполняя поиск / замену вне исходного листа Excel, вы сохраняете потенциал / символ в остальных ячейках. Вместо «Блокнота» для этой операции вы можете использовать другой лист Excel, другой текстовый редактор и т.д.

Answer 2

С датами все в порядке, на самом деле они в текстовом формате.

Вы упомянули, что « я хочу знать, можем ли мы сделать это так, как после вставки таких данных« 2018-02-11/20:32:19 »в лист 1, он автоматически сортируется или в листе 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