在Excel工作表中附加带有日期的文本

时间:2016-10-12 13:50:27

标签: excel vba

我正在尝试在Excel工作表中附加带有日期的文本字段。我有这样的文字格式。

9/23/99 10:37 am我们不会去。我是否有残疾。哥伦布不是繁荣的地方。它主要是退役军人。她打电话问她为什么是唯一一个。也想要她的伴侣。我在会议上解释过这种情况。 9/10/99 4:15p Rick Ludwig提到995美元想要Essex Funding& Associates Inc. WY 4262-3607-0011-9582 8/01 8/23/99 9:08 am想要一家NV公司。需要做一点财务改变。一些程序。 MU和导师。我和我的伙伴......我今年60岁。昨天我把卡片放了出来。

所以我想在我的日期字段出现时添加一些数据

例如

" HTML段落标记" 9/23/99 10:37 am我们不会去。我是否有残疾。哥伦布不是繁荣的地方。它主要是退役军人。她打电话问她为什么是唯一一个。也想要她的伴侣。我在会议上解释过这种情况。 " HTML段落标记结束" " HTML段落标记" 9/10/99无需担心

感谢您的帮助!!!

1 个答案:

答案 0 :(得分: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()电话

  • 向用户请求“要附加的文字”
  • 在工作表“TextSheet”的单元格“A1”中假设“要附加到的文本”

  • “输出”文本写在工作表“TextSheet”的单元格“A2”中

您可以根据实际需要更改所有这些参考