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

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

1

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

2 ответа2

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

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

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

0

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

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .