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

• #32363 lappy őstag Sanyi.mTs #32362

  Új Válasz 2016-08-19 12:18:21 #32363

  Ú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

  

  lappy

  őstag

  válasz Sanyi.mTs #32362 üzenetére

  Option Explicit

Public Function LastRowWithData(ByRef sht As Excel.Worksheet, Optional colName As String = "A") As Long
LastRowWithData = sht.Range(colName & sht.Rows.Count).End(xlUp).Row
End Function

Sub SplitToColumns(ByRef sColNames As String, ByRef strSeparator As String, ByRef rngDest As Excel.Range)
Dim arrColNames As Variant, i As Long

arrColNames = Split(sColNames, strSeparator)
For i = LBound(arrColNames) To UBound(arrColNames)
rngDest.Offset(0, i).value = arrColNames(i)
Next i
End Sub

Sub PerformTheSplit()
Dim totalRows As Long, i As Long, sColNames As String

totalRows = LastRowWithData(Munka1, "K")
For i = 1 To totalRows
sColNames = Munka1.Range("K" & i).value
Call SplitToColumns(sColNames, ",", Munka2.Range("A" & i))
Next i
End Sub

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