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

• #14328 foregister tag foregister #14327

  Új Válasz 2012-07-15 18:08:42 #14328

  Ú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

  

  foregister

  tag

  válasz foregister #14327 üzenetére

  Siker!

  Ez a kód a megoldás a Mass Find & Replace-re:

  Sub findreplace()
  Dim x, i&
  x = Sheets("Vocabulary").Range("A1").CurrentRegion.Value
  ReDim y(1 To UBound(x), 1 To 4)
  
  With CreateObject("Scripting.Dictionary")
  .CompareMode = 1
  For i = 1 To UBound(x)
  .Item(x(i, 1)) = x(i, 2)
  Next i
  
  With Sheets("Data-source")
  x = .Range("B1", .Cells(Rows.Count, 2).End(xlUp)).Value
  End With
  For i = 1 To UBound(x)
  If .Exists(x(i, 1)) Then x(i, 1) = .Item(x(i, 1))
  Next i
  End With
  
  Sheets("Data-source").Range("B1").Resize(i - 1).Value = x
  End Sub

  Köszönöm mindenkinek aki segíteni akart!

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