Autopreencher uma macro do Excel

Question

Eu tenho a macro a seguir no Excel

SubIHIAddWeeks()''IHIAddWeeksMacro'ihi-table''KeyboardShortcut:Ctrl+Shift+I'ActiveCell.FormulaR1C1="=YEAR(RC[1])&WEEKNUM((RC[1]))"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A5"), Type:=xlFillDefault

End Sub

Depois parece:

AgoraeupreenhoautomaticamenteatéA5porqueA5éoúltimorawnãovazio.Masissopodemudar.Comopossodizer:"AutoPreenchimento até a última coluna B não vazia"?

Em seguida, gosto de inserir uma matéria-prima após A2 se A3 > A2 + 1 e deixar o novo A3 = A2 + 1 e, em seguida, comparar A3 com A4 e assim por diante até que a coluna B fique em branco.

Alguém pode ajudar?

na tabela final deve ficar assim

    

Answer 1

How can I say : "AutoFill it until the last nonempty B column" ?

A melhor maneira, supondo que você esteja usando pelo menos o Excel 2010 (talvez 2007 funcionaria), é transformar a tabela em uma tabela do Excel antes de executar a macro. Em seguida, quando você executar a macro, ela será preenchida automaticamente até o final da tabela. No entanto, isso só funcionaria se a coluna estivesse vazia antes de você executar a macro.

Eu não entendo a segunda pergunta que tenho medo. Você quer dizer que você quer uma fórmula de =R[-1]C+1 se a nova célula fosse de outra forma 1 semana após a linha anterior? Se assim for, não vejo por que você gostaria de tornar as coisas tão complexas.

Ou você quer que a célula fique em branco se for igual à linha anterior?

    

Answer 2

Então, a maneira um pouco mais difícil de obter a resposta (não é possível executar isso sozinho agora, desculpe)

Ligue o gravador de macros. Selecione o topo da coluna ao lado da coluna que você precisa preencher (certifique-se, no seu código, que isso não é relativo). Ctr + para baixo, seta para cima (certifique-se de que as referências relativas estejam ativadas) - ctr + shift + up para selecionar tudo, depois alt + H + F + I + D - isso faz o preenchimento automático da equação até a parte inferior.

Não é o código real, mas descreve como obtê-lo.