У нас вы можете посмотреть бесплатно Poucos Sabem Disso no Excel: Apague os Dados sem Perder as Fórmulas! или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
Você sabia que dá pra apagar todos os dados da planilha sem perder as fórmulas no Excel? 😱 Pouca gente conhece esse truque, mas ele é muito útil pra quem trabalha com relatórios, dashboards e planilhas automáticas! Neste vídeo, eu vou te mostrar como limpar o conteúdo de uma planilha sem apagar as fórmulas, usando atalhos e recursos avançados do Excel que quase ninguém conhece! Com esse passo a passo, você vai aprender: ✅ Como apagar dados no Excel sem excluir as fórmulas ✅ Como proteger suas fórmulas e deixar a planilha pronta pra novos lançamentos ✅ Como automatizar a limpeza dos dados no Excel com um único clique! Essa técnica funciona em todas as versões do Excel (2016, 2019, 2021 e 365) e é perfeita pra quem quer trabalhar como um profissional do Excel, economizando tempo e evitando erros. 💡 Dica bônus: dá pra usar esse método junto com VBA, deixando sua planilha 100% automática! 📈 Assista até o final, porque eu mostro o segredo que os experts usam pra manter fórmulas intactas mesmo limpando toda a planilha! 🔔 Se inscreva no canal Excel com Joabe Souza e ative o sininho pra aprender fórmulas, automações e truques que só quem entende de Excel conhece! #excel xcel #DicasDeExcel #FórmulasExcel #joabesouza #excelcomjoabesouza 💻Código usado no vídeo Sub Limpar() Dim meRange As Range Dim CelRange As Range Application.ScreenUpdating = False Set CelRange = Intersect(Selection, ActiveSheet.UsedRange) If CelRange Is Nothing Then GoTo exit_Limpar End If For Each meRange In CelRange If IsNumeric(meRange.Formula) = True Then If ActiveSheet.ProtectContents = False Then meRange.MergeArea.ClearContents Else If meRange.Locked = False Then meRange.MergeArea.ClearContents End If End If End If Next meRange exit_Limpar: Application.ScreenUpdating = True End Sub