„S“ (kodėl žmonės negali pasirašyti savo elektroninio pašto bent vardu?) Parašė šios dienos klausimą.
Bandau automatiškai įdėti puslapių pertraukas į „Excel“ lentelę. Išbandžiau „Duomenys - tarpinės sumos“, bet tai priverčia pridėti sumą arba grafą. Nenoriu jokių tarpinių sumų, tik puslapio pertrauka, kai tik pasikeičia A stulpelio vertė.
Ši makrokomanda išspręs problemą. Dėl tam tikrų priežasčių makrokomandoms, pakeičiančioms puslapių pertraukas ar puslapių sąrankoms, reikia daug laiko paleisti, tačiau tai tikrai bus greičiau, nei atliekant procesą rankiniu būdu. Makrokomanda mano, kad jūsų duomenys yra A stulpelyje ir kad jie prasideda 2 eilutėje.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
