Új hozzászólás Aktív témák

• #42645 Delila_1 veterán csanyiadam #42643

  Új Válasz 2020-01-05 14:40:27 #42645

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz csanyiadam #42643 üzenetére

  A lenti makrót modulba másolod. Kigyűjti egymás alá a címkéidet – mindegyikből csak egyet – a BJ oszlopba.

  Sub Gyomlalas()
Dim sor As Long, usor As Long, oszlop As Long, ide As Long

usor = Range("C" & Rows.Count).End(xlUp).Row
ide = 1
For oszlop = 3 To 59 'BG oszlopig
For sor = 2 To usor
If Cells(sor, oszlop) <> "" Then
If Application.WorksheetFunction.CountIf(Columns(62), Cells(sor, oszlop)) = 0 Then
Cells(ide, 62) = Cells(sor, oszlop)
ide = ide + 1
Else
Exit For
End If
End If
Next
Next
End Sub

Új hozzászólás Aktív témák