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

• #16841 Excelbarat tag Jorus #16838

  Új Válasz 2013-02-22 12:18:51 #16841

  Ú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

  

  Excelbarat

  tag

  válasz Jorus #16838 üzenetére

  Hi ez a kis makró talán segíthet
  A munkalap fülére jobb gomb kód megjelenítése és oda beírod.

  Sub hasonlit()
  Dim sor1
  Dim sor2
  
  For i = 1 To ActiveSheet.UsedRange.Rows.Count
  talalt = False
  For j = 1 To ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
  If Left(Cells(i, 1), 4) = Left(Cells(j, "B"), 4) Then
  sor1 = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1
  Cells(i, 1).Copy Destination:=Cells(sor1, "C")
  talalt = True
  End If
  Next j
  If talalt = False Then
  sor2 = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
  Cells(sor2, "C") = Cells(sor2, "C") & " " & Cells(i, 1)
  End If
  Next i
  End Sub

  Ehhez annyi segítséget kell nyújtanod hogy a "B" oszlop soraiba beírod hogy mik legyenek az új sor szavai. Tehát felsorolsz minden olyan szót ami új sorral kezdődjön (tehát ne fűzze az előzőhöz). (legalább az első 4 karaktert! és fontos a kis és NAGY betű)
  Te esetedben így néz ki:
  B1: Path
  B2: Owner
  B3: Access
  B4: BUILT
  B5: NT AUTH

  A "C" oszlopban pedig látni fogod az eredményt ha megfelel törlöd az A és B oszlopot utána
  Még egyszer megjegyzem fontos, hogy a nagybetűt nagy betűvel a kis betűt kis betűvel!

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