"S" (miksi ihmiset eivät voi allekirjoittaa sähköpostia ainakin etunimellä?) Kirjoitti tämän päivän kysymyksen.
Yritän laittaa sivunvaihdot automaattisesti taulukkoon Excelissä. Yritin Data - Välisummat, mutta se pakottaa minut lisäämään summa tai Count. En halua välisummia, vain sivunvaihto aina, kun sarakkeen A arvo muuttuu.
Tämä makro ratkaisee ongelman. Jostain syystä makroja, jotka muuttavat sivunvaihtoa tai sivuasetuksia, kestää kauan, mutta tämä on varmasti nopeampi kuin prosessin tekeminen manuaalisesti. Makro olettaa, että tietosi ovat sarakkeessa A ja että ne alkavat riviltä 2.
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
