Excelシートに日付を含むテキストを追加します。

Question

Excelシートに日付を含むテキストフィールドを追加しようとしています。私はこのようなテキスト形式を持っています。

9/23/99 10:37 am私たちは行っていません。私は不安です。コロンブスは繁栄する場所ではありません。それは主に退役軍人です。彼女はなぜ彼女が唯一のものか聞いた。彼女のパートナーも募集しました。私は会議でそれが起こると説明した。 9/10/99 4：15p Rick Ludwigが995ドルを募集エセックスファンディングを募集& Associates Inc. WY 4262-3607-0011-9582 8/01 8/23/99 9:08 am NV社を募集します。金融の変更を少し行う必要があります。プログラムのカップル。 MUとメンター。パターと私...私は60歳です。私は昨日私のカードを最大限に使いました。

は、だから、私は日付フィールドは、例えば絵

に我々はつもりはない

「HTMLの段落タグ」9/23/99 10:37に来るとき、いくつかのデータを追加します。私は不安です。コロンブスは繁栄する場所ではありません。それは主に退役軍人です。彼女はなぜ彼女が唯一のものか聞いた。彼女のパートナーも募集しました。私は会議でそれが起こると説明した。 "HTML段落タグの終わり" "HTML段落タグ" 9/10/99心配する必要はありません

ありがとうございました！

Answer 1

はあなたが見るように

この

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 

を試しOPの明確化後編集：

• によってユーザに要求された "が追加されるテキスト" Application.InputBox()コール

• ワークシートのセル「A1」で想定される「に追加するテキスト」「TextSheet」

• 「出力」テキストは、ワークシートのセル「A2」に書かれている「TextSheet」

ますあなたの実際のニーズへの参照をすべて変更することができます