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)

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)

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)

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)

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)