|
 Essa macro do Aplicativo Microsoft Excel VBA, copia os dados da coluna(A) para a Coluna(C), observe que macro copia os dados o números de vezes que foi atribuido na célula representando a quantidade
Sub copia_para_coluna_C()
Dim vLinha As Integer
Dim vQtd As Integer
Dim vProduto As String
Dim vColunaPosicao As Integer
Dim j As Integer
Dim vInicio As Integer
Dim vFinal As Integer
'Pesquisa de valores em coluna B que começa em linha 2
vLinha = 2
'copia valores para coluna C começando na linha 2
vColunaPosicao = 2
'Pesquise em valores na coluna B até que uma célula em branco seja encontrada
While Len(Range("B" & CStr(vLinha)).Value) > 0
'Recupere o nome de produto e a quantidade
vQtd = Range("A" & CStr(vLinha)).Value
vProduto = Range("B" & CStr(vLinha)).Value
' posicionando o fim para cópia a coluna C
vInicio = vColunaPosicao
vFinal = vColunaPosicao + vQtd
'O copia o número de dados que é dado que é representado pela quantidade
For j = vInicio To vFinal - 1
Range("C" & CStr(j)).Value = vProduto
Next
'atualiza a posição na coluna C
vColunaPosicao = vFinal
vLinha = vLinha + 1
Wend
MsgBox "Copiou os dados para a coluna C.", vbInformation, "www.saberexcel.com"
End Sub
Sub limpar()
Range("C2:C1000").ClearContents
End Sub
Aprenda Aplicativo Microsoft Excel VBA - Saberexcel
|