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

• Delila_1 veterán

  #34798

  #34797 pigster

  2017-04-03 11:10:38

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #34797 pigster

  #34797 pigster

  A következő makró megcsinálja amit akarsz a kiválasztás melletti oszlopban:
  Option Explicit

Public Sub kivalasztastSorokba()

Const separator As String = " -- LINE BREAK -- "

Dim cella As Range
Dim kivalasztas As Range
Dim tomb As Variant
Dim sorSzamlalo As Long
Dim i As Integer
Dim cellaErtek As Variant

Set kivalasztas = Application.Selection
sorSzamlalo = 0
For Each cella In kivalasztas.Cells
cellaErtek = cella.Value
If (cellaErtek <> "") Then
tomb = Split(cellaErtek, separator)
For i = LBound(tomb) To UBound(tomb)
Cells(sorSzamlalo + 1, kivalasztas.Column + 1) = tomb(i)
sorSzamlalo = sorSzamlalo + 1
Next i
End If
Next cella
End Sub
  Nem vagyok nagy guru, a töbiek majd kijavítják, szépítik. Nekem működött a példáddal.

  Epistoryval (http://store.steampowered.com/app/398850/) nem foglalkozol esetleg?

  

  1 sort a

  Set kivalasztas = Application.Selection

  sor fölé tennék.

  Range("A1").CurrentRegion.Select

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