Entrada de dados da tabela - Como ter sempre uma linha em branco no final de uma tabela do Excel

Question

Estou criando uma planilha simples do Excel para a entrada de dados da tabela (tabela criada usando a opção "Formatar como tabela" - par de colunas, pode haver centenas de linhas). Eu gostaria de ter sempre a última linha da tabela em branco e pronta para a entrada de dados (caso contrário, não vejo os dropdowns). Tenho certeza que já vi isso no passado, mas não posso replicar. Alguma ideia de como eu poderia fazer isso? Idealmente sem o VBA.

    

Answer 1

Geralmente, é o método mais simples de ampliar o tamanho da tabela com antecedência para quantas linhas você precisar. A classificação e as fórmulas continuarão funcionando conforme o esperado.

• Selecione sua tabela
• No menu Ferramentas / Design da tabela, clique em Redimensionar tabela e especifique um intervalo maior.

Como alternativa, a maneira manual é selecionar a última linha na tabela e fazer "Inserir linha abaixo" (ou usar a pequena seta na célula inferior direita). Isso pode ser automatizado usando o VBA se você estiver inclinado, embora eu geralmente ache que estender a tabela faça o trabalho tão bem e seja mais fácil para o usuário final lidar com isso.

    

Answer 2

Bem, a tabulação da última célula na última linha em que você está inserindo dados deve adicionar automaticamente uma nova linha em branco à tabela. Isso só funciona se você não tiver uma linha de totais.

É concebível que você queira que a nova linha em branco seja criada quando começar a editar na última linha, em vez de concluir a edição, mas não consegui encontrar uma maneira de fazer isso acontecer .

    

Answer 3

Eu não sei como fazer isso sem o VBA, mas o seguinte foi tirado de O Blog do Scripting Guy no TechNet. Você deve consultar o post do blog sobre como usá-lo, mas é a melhor maneira que eu conheço atualmente.

Const xlCellTypeLastCell = 11

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.UsedRange
objRange.SpecialCells(xlCellTypeLastCell).Activate

intNewRow = objExcel.ActiveCell.Row + 1
strNewCell = "A" &  intNewRow

objExcel.Range(strNewCell).Activate