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

Në Vazhdim Postuar 5 vite mё parё Paguhet në dorëzim
Në Vazhdim Paguhet në dorëzim

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

Futje të dhënash Përpunim të dhënash Excel Visual Basic Visual Basic për Aplikacione

ID Projekti: #18560737

Rreth projektit

9 propozimet Projekti në distancë Aktiv 5 vite mё parё

9 profesionistë freelancer dërguan një ofertë mesatare prej £15 për këtë punë

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 për 1 ditë
(406 Përshtypje)
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ë shumë

£20 GBP për 0 ditë
(150 Përshtypje)
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ë shumë

£10 GBP për 1 ditë
(35 Përshtypje)
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ë shumë

£10 GBP për 0 ditë
(43 Përshtypje)
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 për 1 ditë
(3 Përshtypje)
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ë shumë

£10 GBP për 1 ditë
(1 përshtypje)
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 për 2 ditë
(0 Përshtypje)
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 për 1 ditë
(0 Përshtypje)
0.0