1. Forum
  2. Usenet
  3. MSOFT.PUB.EXCEL.WORKSHEET

  • Replace wildcard character problem

    From Claus Busch@21:1/5 to All on Mon Oct 28 16:47:15 2019
    Hi,

    Am Mon, 28 Oct 2019 08:28:27 -0700 (PDT) schrieb Daddy Sage:

    My colleague has some texts written like

    *Abe
    *Benzen
    *Munoni
    *Monintor

    and so on. Now he want to change the texts to

    *Abe*
    *Benzen*
    *Munoni*
    *Monintor*

    try it with a helper column. If the first string is in A1 then use:
    =A1&"*"
    Then copy the helper column and insert it as values in column A.

    Or try:

    Sub Test()
    Dim LRow As Long
    Dim rngC As Range

    With ActiveSheet
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each rngC In .Range("A1:A" & LRow)
    rngC = rngC & "*"
    Next
    End With
    End Sub


    Regards
    Claus B.
    --
    Windows10
    Office 2016

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Daddy Sage@21:1/5 to All on Mon Oct 28 08:28:27 2019
    My colleague has some texts written like

    *Abe
    *Benzen
    *Munoni
    *Monintor

    and so on. Now he want to change the texts to

    *Abe*
    *Benzen*
    *Munoni*
    *Monintor*

    I have problems making it work because of * being a wildcard character.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Daddy Sage@21:1/5 to All on Mon Oct 28 15:34:32 2019
    mandag den 28. oktober 2019 kl. 16.47.19 UTC+1 skrev Claus Busch:
    Hi,

    Am Mon, 28 Oct 2019 08:28:27 -0700 (PDT) schrieb Daddy Sage:

    My colleague has some texts written like

    *Abe
    *Benzen
    *Munoni
    *Monintor

    and so on. Now he want to change the texts to

    *Abe*
    *Benzen*
    *Munoni*
    *Monintor*

    try it with a helper column. If the first string is in A1 then use:
    =A1&"*"
    Then copy the helper column and insert it as values in column A.

    Or try:

    Sub Test()
    Dim LRow As Long
    Dim rngC As Range

    With ActiveSheet
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each rngC In .Range("A1:A" & LRow)
    rngC = rngC & "*"
    Next
    End With
    End Sub


    Regards
    Claus B.
    --
    Windows10
    Office 2016

    Great. But the problem is that he want it sone without VBA.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From =?ISO-8859-1?Q?Beno=EEt?=@21:1/5 to Daddy Sage on Tue Oct 29 14:16:21 2019
    Daddy Sage <jan120253@gmail.com> wrote:

    mandag den 28. oktober 2019 kl. 16.47.19 UTC+1 skrev Claus Busch:
    Hi,

    Am Mon, 28 Oct 2019 08:28:27 -0700 (PDT) schrieb Daddy Sage:

    My colleague has some texts written like

    *Abe
    *Benzen
    *Munoni
    *Monintor

    and so on. Now he want to change the texts to

    *Abe*
    *Benzen*
    *Munoni*
    *Monintor*

    try it with a helper column. If the first string is in A1 then use:
    =A1&"*"
    Then copy the helper column and insert it as values in column A.

    Or try:

    Sub Test()
    Dim LRow As Long
    Dim rngC As Range

    With ActiveSheet
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each rngC In .Range("A1:A" & LRow)
    rngC = rngC & "*"
    Next
    End With
    End Sub


    Regards
    Claus B.
    --
    Windows10
    Office 2016

    Great. But the problem is that he want it sone without VBA.

    Like what Claus Busch said :

    try it with a helper column. If the first string is in A1 then use:

    in B1 for example
    =A1&"*"
    Then copy the helper column and insert it as values in column A.

    If you want to have the "good" text in colomn A (I dont recommand this).

    --
    Vie : n.f. maladie mortelle sexuellement transmissible
    Benoit chez leraillez.com

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Daddy Sage@21:1/5 to All on Tue Oct 29 16:26:56 2019
    tirsdag den 29. oktober 2019 kl. 14.16.23 UTC+1 skrev Benoît:
    Daddy Sage <jan120253@gmail.com> wrote:

    mandag den 28. oktober 2019 kl. 16.47.19 UTC+1 skrev Claus Busch:
    Hi,

    Am Mon, 28 Oct 2019 08:28:27 -0700 (PDT) schrieb Daddy Sage:

    My colleague has some texts written like

    *Abe
    *Benzen
    *Munoni
    *Monintor

    and so on. Now he want to change the texts to

    *Abe*
    *Benzen*
    *Munoni*
    *Monintor*

    try it with a helper column. If the first string is in A1 then use: =A1&"*"
    Then copy the helper column and insert it as values in column A.

    Or try:

    Sub Test()
    Dim LRow As Long
    Dim rngC As Range

    With ActiveSheet
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each rngC In .Range("A1:A" & LRow)
    rngC = rngC & "*"
    Next
    End With
    End Sub


    Regards
    Claus B.
    --
    Windows10
    Office 2016

    Great. But the problem is that he want it sone without VBA.

    Like what Claus Busch said :

    try it with a helper column. If the first string is in A1 then use:

    in B1 for example
    =A1&"*"
    Then copy the helper column and insert it as values in column A.

    If you want to have the "good" text in colomn A (I dont recommand this).

    --
    Vie : n.f. maladie mortelle sexuellement transmissible
    Benoit chez leraillez.com

    Thank you top both. I'll let him know.

    Jan

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)