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

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

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

1

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

Источник

2 ответа

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

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

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

Источник

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

Вы упомянули, что"я хочу знать, можем ли мы сделать это так, как после вставки таких данных"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
Источник
Другие вопросы по тегам