Добавить текст с датой в лист Excel

Question

Я пытаюсь добавить текстовое поле с датой в лист Excel. У меня такой текстовый формат.

9/23/99 10:37 Мы не собираемся. Я не согласен. Колумбус не является процветающим местом. Это в основном отставные военные. Она позвонила, чтобы спросить, почему она единственная. Хотел ее партнер тоже. Я объяснил, что это происходит на встрече. 9/10/99 4: 15p Рик Людвиг назвал $ 995 Хочет финансировать Эссекс & Associates Inc. WY 4262-3607-0011-9582 8/01 8/23/99 9:08 утра Хотите корпорацию NV. Нужно немного изменить финансы. Несколько программ. МУ и наставников. Партеры и я ... Мне 60 лет. Вчера я выложил свои карты.

Так что я хочу добавить некоторые данные, когда моя дата поля придет в картину

, например

«HTML пункт Tag» 9/23/99 10:37 Мы не собираемся. Я не согласен. Колумбус не является процветающим местом. Это в основном отставные военные. Она позвонила, чтобы спросить, почему она единственная. Хотел ее партнер тоже. Я объяснил, что это происходит на встрече. «Конец HTML-абзаца абзаца» «HTML-абзац абзаца» 9/10/99 Не нужно беспокоиться

Благодарим за помощь!

Answer 1

отредактирован после уточнений OP в

попробовать этот

Option Explicit 

Sub main() 
    Dim newStrng As String 
    Dim word As Variant 
    Dim strngToBeAppended As String 

    strngToBeAppended = Application.InputBox("Input string to be appended", 1) 

    With Worksheets("TextSheet") '<-- change "TextSheet" to your actual sheet with text name 
     For Each word In Split(.Range("A1").Text, " ") '<-- assuming that the text to be splitted is in cell "A1" of the referenced worksheet 
      If Len(word) - Len(Replace(word, "/", "")) = 2 Then 
       newStrng = newStrng & " " & strngToBeAppended & word 
      Else 
       newStrng = newStrng & " " & word 
      End If 
     Next word 
     .Range("A2").Value = LTrim(newStrng) 
    End With 
End Sub 

как вы видите:

• "Текст, который будет добавлен" предлагается пользователю с помощью Application.InputBox() звонок

• «Текст для добавления к» предполагается в ячейке «A1» из листа «TextSheet»

• «продукция» текст написан в ячейке «A2» на листе «TextSheet»

вы может изменить все эти ссылки на ваши фактические потребности