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

• #28537 szatocs1981 aktív tag air #28536

  Új Válasz 2015-09-09 14:57:44 #28537

  Ú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

  

  szatocs1981

  aktív tag

  válasz air #28536 üzenetére

  Ez szétszedi az A1-ben lévöt és A2-B2 töl kezdve feltölti.
  Pr´báld ki:

  Sub Split()
  
  Dim txt As String
  Dim x As Variant
  
  Dim i As Long
  txt = Cells(1, 1).Value
  
  x = Split(txt, ", ")
  
  ReDim y(UBound(x))
  
  For i = 0 To UBound(x)
  
  y(i) = Split(x(i), "(")
  
  Next i
  
  For i = 0 To UBound(x)
  y(i)(1) = Replace(y(i)(1), ")", "")
  Next i
  
  For i = 0 To UBound(x)
  Cells(i + 2, 1).Value = y(i)(0)
  Cells(i + 2, 2).Value = y(i)(1)
  Next i
  
  End Sub

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