Telefonszámunk: 1-472-0679

PQ-ben oszlopokból 1 oszlop létrehozása

Kezdőlap Fórumok Excel programozás PQ-ben oszlopokból 1 oszlop létrehozása

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #3491
    delila
    Felhasználó

      Szia Imi,

      Egy feladat szerint az A oszlop celláiban több mondatból álló szövegek vannak, ” – Sortörés – ” elválasztóval.
      Pl. az A1 tartalma:
      Ez itt az első mondat. – Sortörés – Ez már a második. – Sortörés – A harmadik mondatnál járunk? – Sortörés – Nem, ez a negyedik.

      Ezeket a mondatokat kellene folyamatosan 1 oszlopba tenni, természetesen az elválasztó szöveg nélkül. Makróval egyszerű:

      `Sub Mondatok_Sorokba()
      Dim CV As Range, ter As Range, tomb As Variant
      Dim sor As Long, i As Integer

      Set ter = Range(„A1”).CurrentRegion
      sor = 0
      For Each CV In ter.Cells
      If CV <> „” Then
      tomb = Split(CV, ” – Sortörés – „)
      For i = LBound(tomb) To UBound(tomb)
      Cells(sor + 1, ter.Column + 1) = tomb(i)
      sor = sor + 1
      Next i
      End If
      Next
      End Sub

      PQ-vel addig jutottam, hogy minden cella mondatait egymás melletti oszlopokba írattam pár kattintással, de tudom-e ezt a tartományt egyetlen oszlopba helyezni?

      Üdv,
      Kati

      Szerk: hogy lehet tabulátorokkal tagolt makrót ide bevinni?

      • A témakör módosításra került: 7 years, 8 months telt el-delila.
      • A témakör módosításra került: 7 years, 8 months telt el-delila.
      #3494
      horvimi
      Adminisztrátor

        Szia Kati!

        Kipróbáltam a kódodat, értem mit szeretnél. Ezt kattintgatással PQ-vel nem lehet megcsinálni. Valószínűleg M kóddal igen, de attól még távol állok, úgyhogy maradjunk a VBA-nál.

        Imre

        #3495
        delila
        Felhasználó

          Köszönöm, a nemleges válasz is válasz.

        3 bejegyzés megtekintése - 1-3 / 3
        • Be kell jelentkezni a hozzászóláshoz.