Excell 2007 vba macro addition remove comma in find dupes simple addition

En curso Publicado hace 5 años Pagado a la entrega
En curso Pagado a la entrega

I have a Macro that I use and works well, it finds duplicate words in a cell and puts them in the next cell so I can edit

so if the cell had

big red dog with big collar ------ it would put ---- big big in next cell

but if it was

big, red dog with big collar

then it sees big, with the comma as a separate word

there may also be other characters causing issues but so far only seen comma, so provision for others would be required

this is the macro I am using now,

Sub FindDuplicates()

Dim i As Long

Dim j As Integer

Dim k As Integer

Dim WS As Worksheet

Dim WordArr As Variant

Dim DubStr As String

Dim WordCount As Integer

Set WS = ActiveSheet

'Loop cells

For i = 4 To [login to view URL]([login to view URL], 1).End(xlUp).Row

'Split cell words into array

WordArr = Split([login to view URL](i, 4).Value, " ")

'Loop through each word in cell

For j = LBound(WordArr) To UBound(WordArr)

WordCount = 0

'Count the occurrences of the word

For k = LBound(WordArr) To UBound(WordArr)

If UCase(WordArr(j)) = UCase(WordArr(k)) Then

WordCount = WordCount + 1

End If

Next k

'Output duplicate words to string

If WordCount > 1 And InStr(1, DubStr, WordArr(j)) = 0 Then

DubStr = DubStr & WordArr(j) & " "

End If

Next j

'Paste string in column B

[login to view URL](i, 6).Value = Trim(DubStr)

DubStr = ""

Erase WordArr

Next i

End Sub

Entrada de datos Procesamiento de datos Excel Visual Basic Visual Basic para aplicaciones

Nº del proyecto: #18560737

Sobre el proyecto

9 propuestas Proyecto remoto Activo hace 5 años

9 freelancers están ofertando un promedio de £15 por este trabajo

prameswara

Hello Sir Im excel VBA macro and formula Expert :) im very interested to solve your case Sir please ping me now and im able to start working now Thank you Galih

£20 GBP en 1 día
(406 comentarios)
7.3
VladimirLilenko

Hello, dear sir! I registered at the forum not so long ago, but I already have several completed projects on www.freelancer.com. I am ready to carry out your project in the reasonable price and in the shortest possibl Más

£20 GBP en 0 días
(150 comentarios)
6.5
madnanayoub

Hi, I am computer science graduate with more than 3 years of programming experience in VBA programming that is used by Excel Macros. I have understood your requirement and yes i can edit your macro and it will work as Más

£10 GBP en 1 día
(35 comentarios)
5.0
Mokshith30

Hi I have Read Your Requirements I am Excel VBA Expert Experianced in VBA Macros & Web Scraping Script... I can finish any kind of vba task in 1 day only pls see my previous projects for my vba experiance T Más

£10 GBP en 0 días
(43 comentarios)
4.7
theatasolution1

Dear Employer, I am ready to work on your required task and can also give 100% satisfaction. Looking forward to an opportunity to work with you. Warm Regards: Theata Solution

£13 GBP en 1 día
(3 comentarios)
1.2
zexhan1

Hi, Thanks for sharing your requirement here at freelacner and I will be more than happy to help you. I have 5 to 6 years’ experience in this fields. I am expert in it & I have much free time for your project. Th Más

£10 GBP en 1 día
(1 comentario)
0.0
summairmir56

I have an English and ms office and also a programming skill and I have good match for your project …………..

£18 GBP en 2 días
(0 comentarios)
0.0
abhisheksura

This is an easy fix and should not take more than an hour. I will code it to ignore any special characters that appear at the end of the word.

£18 GBP en 1 día
(0 comentarios)
0.0