Você pode usar essa macro para realizar o trabalho. Mas primeiro, você deve adicionar uma referência à biblioteca do Microsoft Forms 2.0. Pressione Alt + F11 para abrir o Editor do Visual Basic e clique em Ferramentas > > Referências ... Role para baixo até ver Microsoft Forms 2.0 Object Library
, marque a caixa ao lado e clique em OK. Se você não vê-lo (eles estão listados em ordem alfabética), você precisará adicioná-lo através da dll. Clique em Browse ... e procure e adicione C:\Windows\System32\FM20.DLL
.
Uso: selecione o intervalo (você pode selecionar a coluna inteira) e invoque a macro por meio de qualquer método que seja mais fácil para o usuário. Após a execução da macro, os dados estarão na área de transferência. Você pode criar um botão, atribuir uma tecla de atalho ou executá-lo manualmente através da faixa de opções. Estou assumindo que os valores são todos calculados com fórmulas e que não há células em branco. Ele não modifica a pasta de trabalho, portanto, se o usuário errar e selecionar a coluna errada, não haverá impacto em seus dados.
Option Explicit
Public Sub CopyPercentAsWholeNumber()
Dim Arr() As Variant
ReDim Arr(1 To Selection.SpecialCells(xlCellTypeFormulas).Count)
Dim i As Long
With Selection
For i = 1 To UBound(Arr)
Arr(i) = .Cells(i).Value * 100
Next i
End With
Dim S As String
Dim objText As New MSForms.DataObject
S = Join(Arr, vbCrLf) & vbNewLine
objText.SetText S
objText.PutInClipboard
End Sub