Вставьте кронштейны в многократном наборе данных с помощью VBA

Question

У меня есть этот набор данных в Excel,

2006-12-29 
2007-01-01 
2007-01-02 
2007-01-03 
2007-01-04 
2007-01-05 
2007-01-08 
2007-01-09 
2007-01-10 
2007-01-11 
2007-01-12 

и т.д .. (2612 строк данных)

Я хочу, чтобы сохранить формат даты ввгг/MM/DD и добавить скобки и слово "деньги", чтобы достичь этого результата:

[CCYY/MM/DD] [Money], 
[CCYY/MM/DD] [Money], 
[CCYY/MM/DD] [Money], 

Я использую этот код:

Sub addbrackets() 
    Dim Rng As Range 
    Dim WorkRng As Range 
    On Error Resume Next 
    xTitleId = "DDL.PTBV" 
    Set WorkRng = Application.Selection 
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) 
    For Each Rng In WorkRng 
     Rng.Value = "[" & Rng.Value & "]" & "[Money]," 
    Next 
End Sub 

Но это не позволяет мне отправить это [29/12/2006] [Деньги], неправильный формат даты.

Может ли кто-нибудь мне помочь?

пс: Я попытался изменить тип формата в «2» (текст), но она по-прежнему не работает

Answer 1

Rng.Value = "[" & Format(Rng.Value, "YYYY/MM/DD") & "]" & "[Money]," 

Answer 2

Сначала взять данные и заменить «-» с «/».

string = replace(string, "-", "/") 

Затем соберите его:

string = "[" & string & "]" & "[Money]," 

Теперь Петлю на данные и редактировать один за другим в цикле;) Надеюсь, что это помогает!