< návrat zpět

MS Excel


Téma: Duplicitní hodnoty rss

Zaslal/a 13.12.2018 13:01

Ahoj všem,
řeším problém a nevím jak ho vyřešit. Ve sloupci A mám hodnoty - dejme tomu jména. Potřebuji pomoci makra najít duplicitní hodnoty a jedné z těch duplicitních hodnot přiřadit pebně dané slovo . Např. Duplicitní hodnoty v A1 Johan a v A4 taky Johan. K jedné z nich potřebuji připsat např. slovo "první" aby z toho vzniklo Johan první. Dá se to ? Díky všem za rady. :-)

Zaslat odpověď >

#042090
avatar
Když nevím jak = makro? Podívejte se na Google a funkci COUNTIF.citovat
#042095
MePExG
V prílohe bez makra.
Příloha: xlsx42095_jmeno.xlsx (11kB, staženo 28x)
citovat
#042106
avatar
Děkuji za odpověď, ale contif neřeší to, co jsem napsal. Vzorcem se to buhužel řešit nedá a proto hledám makro. Nepotřebuji dopsat duplicitní hodnotu do dalšího sloupce, ale u duplicitní hodnoty do té samé buňky dopsat slovo např. "první".
Ale i tak děkuji ...citovat
#042107
avatar
Takže, našel jsem na netu tento zajímavý kód, který jsem mírně upravil a dělá to, co právě potřebuji. Možno se to bude někdy někomu hodit :

Sub dopsatzaduplicitnihodnotu()
Dim lastRow As Long
Dim matchFoundIndex As Long
Dim x As Long
lastRow = Range("A65000").End(xlUp).Row

For x = 1 To lastRow
If Cells(x, 1) <> "" Then
matchFoundIndex = WorksheetFunction.Match(Cells(x, 1), Range("A1:A" & lastRow), 0)
If x <> matchFoundIndex Then
Cells(x, 1) = Cells(x, 1) & " dopisovaná hodnota"
End If
End If
Next
End Sub

1citovat
#042109
avatar
Drobná obměna úlohy (vhodná pro challenge, zde to není úplně efektivní řešení):

Sub OcislovatVyskyty()

Dim rngStart As Range
Dim rngKonec As Range
Dim rngData As Range

Dim arrData()

Dim i As Long
Dim lngPoradi As Long

Set rngStart = Cells(1)
Set rngKonec = Cells(Cells.Rows.Count, 1).End(xlUp)
Set rngData = Range(rngStart, rngKonec)

arrData = rngData

strAdresaA = "A1"

For i = 1 To UBound(arrData, 1) - LBound(arrData, 1) + 1

strAdresaB = Cells(i, 1).Address(False, False)

lngPoradi = Evaluate("=COUNTIF(" & strAdresaA & ":" & _
strAdresaB & "," & strAdresaB & ")")

arrData(i, 1) = arrData(i, 1) & " (" & lngPoradi & ")"

Next i

rngData = arrData

End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse