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

• #1463 loszerafin senior tag loszerafin #1460

  Új Válasz 2006-08-28 14:53:25 #1463

  Ú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

  

  loszerafin

  senior tag

  válasz loszerafin #1460 üzenetére

  Dim wsData As Worksheet
  
  Set wsData = Worksheets(''Munka1'')
  
  For r = 1 To 100
  ujsor = 0
  For c = 1 To 100
  pos = InStr(wsData.Cells(r, c).Value, ''|'')
  If (pos > 0) Then
  If (ujsor = 0) Then
  wsData.Rows(r + 1).Insert
  ujsor = 1
  End If
  newval = Left(wsData.Cells(r, c).Value, pos - 1)
  nextval = Right(wsData.Cells(r, c).Value, Len(wsData.Cells(r, c).Value) - pos)
  wsData.Cells(r + 1, c).Value = nextval
  wsData.Cells(r, c) = newval
  End If
  Next c
  Next r
  
  [Szerkesztve]

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