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

• Delila_1 veterán

  #9190

  #9186 Mesike8114

  2011-01-23 12:56:14

  Ú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

  #9186 Mesike8114

  #9186 Mesike8114

  Sziasztok!
  Van egy 2000 soros táblázatom, amiben az L2 cellától az L2001 celláig lévő értékeket szeretném összefűzni. Egyszerre csak 16 cellát tud összefűzni. Mondjuk az M2 cellába ezt írom be
  =ÖSSZEFŰZ(L2;" OR 'azonosító' = ";L3;" OR 'azonosító' = ";L4;" OR 'azonosító' = ";L5;" OR 'azonosító' = ";L6;" OR 'azonosító' = ";L7;" OR 'azonosító' = ";L8;" OR 'azonosító' = ";L9;" OR 'azonosító' = ";L10;" OR 'azonosító' = ";L11;" OR 'azonosító' = ";L12;" OR 'azonosító' = ";L13;" OR 'azonosító' = ";L14;" OR 'azonosító' = ";L15;" OR 'azonosító' = ";L16)
  Az M3 cellába ezt
  =ÖSSZEFŰZ(L17;" OR 'azonosító' = ";L18;" OR 'azonosító' = ";L19;" OR 'azonosító' = ";L20;" OR 'azonosító' = ";L21;" OR 'azonosító' = ";L22;" OR 'azonosító' = ";L23;" OR 'azonosító' = ";L24;" OR 'azonosító' = ";L25;" OR 'azonosító' = ";L26;" OR 'azonosító' = ";L27;" OR 'azonosító' = ";L28;" OR 'azonosító' = ";L29;" OR 'azonosító' = ";L30;" OR 'azonosító' = ";L31)
  Hogyan tudnám azt elkerülni és egyszerüsíteni, hogy ne kelljen beírogatni a számokat folyton, mert ezt a képletet nem lehet egyszerűen lehúzni az M oszlop többi cellájába, a számokat folyton át kell írogatnom.
  Előre is köszönöm a segítséget
  Üdv: Mese

  Egy makró megoldja képletek nélkül. Nem túl szép, mert a futás idején az AX oszlopba íratok egy-egy értéket, amit a makró végén töröltetek.

  Biztosan meg lehet oldani enélkül is.

  Sub osszefuz()
  Dim sor As Integer, sor_1 As Integer
  Dim sz As String, sz_1 As String
  
  sz = " OR 'azonosító'= "
  For sor = 2 To Int(2001 / 16)
  If sor = 2 Then
  Cells(sor, 50) = 2
  Else
  Cells(sor, 50) = Cells(sor - 1, 50) + 15
  End If
  
  sz_1 = ""
  For sor_1 = Cells(sor, 50) To Cells(sor, 50) + 14
  sz_1 = sz_1 & Cells(sor_1, 12) & sz
  Next
  Cells(sor, 13) = Left(sz_1, Len(sz_1) - 18)
  Next
  
  Columns("AX:AX").Delete
  End Sub

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