Saberexcel - o site de quem precisa Aprender Microsoft Excel VBA
Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia e cola a ultima linha na coluna B na folha de planihas. Exemplo poderá servir em muitas situações
Sub Copia_ultima_linha()
Dim DadosRange As Range
Dim vUltimaLinha As Integer
Dim vCelula As Range
r = 6
vUltimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
Set DadosRange = Range("B4:B" & vUltimaLinha)
For Each vCelula In DadosRange
If vCelula.Value > 0 Then
vCelula.EntireRow.Copy
Sheets("Plan1").Range("A" & r).PasteSpecial xlPasteValues
r = r + 1
End If
Next vCelula
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planiha contendo o macro acima
Excel planilha vba copia ultima linha branco (19.11 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
