Esse comportamento é por design; quando você seleciona células não contíguas e copia-as, o Excel não se lembra de sua localização original.
Soluções alternativas:
- Copie os valores, um de cada vez, para as células de destino.
- Copie primeiro toda a coluna, depois filtre-a para excluir todas as células com "Banana" e exclua o conteúdo de todas as outras linhas.
- Use fórmulas para verificar se "Banana" está na mesma célula na outra planilha e só retorna um valor quando está. Esta fórmula deve funcionar:
=IF(B2="Banana",B2,"")
-
Use uma macro para examinar todas as células na coluna B e duplique o valor para a coluna D se ela diz "Banana" Sub BananaCopy () Const csSrc As String="B" Const csTgt As String="D" Const csFruit As String="Banana"
Dim rngFruits As Range, rngCell As Range Set rngFruits = Range(csSrc & 1, csSrc & Rows.Count) For Each rngCell In rngFruits If rngCell.Value = csFruit Then Range(csTgt & rngCell.Row).Value = csFruit End If Next rngCell
End Sub