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

• #16914 Mutt senior tag detroitrw #16910

  Új Válasz 2013-02-25 07:10:49 #16914

  Ú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

  

  Mutt

  senior tag

  válasz detroitrw #16910 üzenetére

  Hello,

  ...ez a makró A1-A2000 -ig végigfusson?

  Az elején és a végén kell egy kicsit módosítani:

  Dim blnHit As Boolean 'logikai jelző ha már létezik a vizsgált szám
  Dim cell As Range
  
  For Each cell In Range("A1:A2000")
  arraySplit = Split(cell, strDelimiter)
  
  ...<itt marad az eredeti> ...
  
  For i = 1 To UBound(arrayResult, 2)
  Cells(cell.Row, cell.Column + i) = arrayResult(1, i) & " db - " & arrayResult(2, i)
  Next i
  Application.ScreenUpdating = True
  End If
  Next
  
  End Sub

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