我正在尝试在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无需担心
感谢您的帮助!!!
答案 0 :(得分: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
如你所见:
通过Application.InputBox()
电话
在工作表“TextSheet”的单元格“A1”中假设“要附加到的文本”
“输出”文本写在工作表“TextSheet”的单元格“A2”中
您可以根据实际需要更改所有这些参考