"S" (por que as pessoas não podem assinar seus e-mails com pelo menos o primeiro nome?) Escreveu a pergunta de hoje.
Estou tentando colocar automaticamente as quebras de página em uma tabela do Excel. Tentei Dados - Subtotais, mas isso me obriga a adicionar uma Soma ou Contagem. Não quero nenhum subtotal, apenas uma quebra de página sempre que o valor na coluna A mudar.
Esta macro resolverá o problema. Por alguma razão, macros que alteram quebras de página ou configurações de página demoram muito para serem executadas, mas isso certamente será mais rápido do que fazer o processo manualmente. A macro presume que seus dados estão na coluna A e que começam na linha 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
