Código Dobro Xp

O que é o código dobro xp

O código dobro xp é uma macro em VBA criada para o ambiente do ExcelXP (versão 2002/2003) que permite duplicar rapidamente os valores de uma seleção de células. Não é uma função nativa do Excel. Você precisa colar o código num módulo do editor VBA e executá-lo manualmente. Funciona assim: você seleciona um intervalo qualquer, roda a macro, e cada célula do intervalo recebe o dobro do seu valor original. A lógica é basicamente um loop For Each que percorre a seleção e multiplica cada valor por 2, tratando também casos onde a célula está vazia ou contém texto.

Como instalar e usar o código dobro xp

Abra o ExcelXP ou qualquer versão compatível com VBA. Aperte Alt+F11 para abrir o editor. No menu, clique em Inserir > Módulo. Cole o código abaixo no painel em branco que aparecer: Sub DobrarSelecao()
Dim cel As Range
For Each cel In Selection
If IsNumeric(cel.Value) And cel.Value <> "" Then
cel.Value = cel.Value * 2
End If
Next cel
End Sub

Volte para a planilha. Selecione as células que quer dobrar. Pressione Alt+F8, escolha DobrarSelecao e clique em Executar. Teve um problema nos últimos anos que merece nota: ao rodar a macro numa planilha com fórmulas que retornam números, o código dobra o resultado calculado, não a fórmula em si. No meu caso, tinha uma coluna inteira de vendas com fórmulas =B2*C2 e rodei a macro sem perceber. O resultado foi valores estáticos dobrados no lugar das fórmulas, perdendo a ligação dinâmica. A solução foi simples: usar Copiar > Colar Especial > Multiplicar por 2 em vez da macro, ou então adicionar uma verificação na macro com If cel.HasFormula Then Next para pular células com fórmulas.

Outro detalhe prático que muita gente esquece: se o intervalo selecionado contiver células mescladas, a macro pode falhar ou dobrar apenas a célula superior do agrupamento. Testei isso numa planilha de relatório trimestral com células mescladas por mês. A correção foi desmexer as mesclagens antes de rodar o DobrarSelecao ou criar uma variante da macro que use .UnMerge antes e .Merge depois, mas aí já complica mais do que vale a pena.

Vantagens e limitações reais

O código dobro xp é útil quando você precisa de velocidade num processo repetitivo. Um profissional que trabalha com planilhas de orçamento todo mês pode economizar cerca de 5 a 10 minutos por execução em relação à digitação manual ou à formatação condicional. Mas existem casos em que ele não funciona bem. Se a planilha tiver proteção ativa, a macro trava. Se o intervalo for muito grande, acima de 50 mil linhas, o loop VBA pode levar de 30 segundos a 2 minutos, dependendo da máquina. E se você estiver em um ambiente corporativo com políticas de segurança restritivas, macros podem ser bloqueadas pelo administrador. Uma alternativa que recomendo quando a macro não é viável é o recurso de colar especial multiplicação. Selecione uma célula com o valor 2, copie, selecione o intervalo alvo, clique com o botão direito > Colar Especial > Multiplicar. Isso preserva fórmulas originais como fórmulas (só recalcula o resultado), não depende de VBA, e funciona em todas as versões do Excel a partir do 97. Para planilhas com muitos dados, costuma ser mais rápido também porque o motor do Excel faz o cálculo nativamente, sem precisar iterar célula por célula via VBA.

O código dobro xp ainda aparece em fóruns e grupos de usuários como referência rápida para quem está aprendendo automação no Excel. O código em si é didático. Mostra como percorrer uma seleção, como verificar tipo de dado com IsNumeric, e como escrever um loop básico. Mas saiba que ele foi pensado para um contexto antigo. Em versões modernas do Excel, como 365 ou 2021, fórmulas dinâmicas e o recurso de multiplicar por constante via fórmulas tornam a macro desnecessária na maioria dos cenários. Só vale a pena mantê-la se você trabalha com arquivos legados, precisa executar a operação repetidamente sem depender de fórmulas, ou está estudando VBA como forma de automatizar tarefas.