Excel - MACRO PARA MODIFICAR FORMATO DE PORCENTAJE

Sub ...

    ...

    Cells(1,3) = Cells(1,3) * 100

    ...

End Sub

Formula Actual --> =A1/B1     --> Formato porcentaje  -->  30%

Formula Nueva  --> =100*A1/B1 --> Formato número      -->  30

% Avance  Lo que quiero que haga la macro y lo coloque en la columna A

5%               5

6%               6

6,5%             6,5

7%               7

7,5%             7,5

8%               8

10%             10

11%             11

14%             14

15%             15

18%             18

20%             20

23%             23

Sub QUITAR()

'

' QUITAR Macro

'

'

    Selection.NumberFormat = "0.00"

    Cells(1, 3) = Cells(1, 3) * 100

End Sub

Sub QUITAR()

    Dim Linas Byte

    For Lin=2 To 30

        Range("A" & Lin).Select

        Selection.NumberFormat = "0.00"

        Cells(Lin, 1) = Cells(Lin, 1) * 100

    Next

End Sub

Sub QUITAR()

    Dim Linas Byte

    For Lin=2 To 30

        Range("A" & Lin).Select

        Selection.NumberFormat = "0"

        Cells(Lin, 1) = Cells(Lin, 1) * 100

    Next

End Sub

Range("A" & Lin).Select  ' Cambias a B o a C

Sub QUITAR()

    Dim Linas Byte

    For Lin=2 To 30

        Range("A" & Lin).Select

        Selection.NumberFormat = "0"

        Cells(Lin, 1) = Cells(Lin, 1) * 100

    Next

 For Lin=2 To 30

        Range("B" & Lin).Select

        Selection.NumberFormat = "0"

        Cells(Lin, 1) = Cells(Lin, 1) * 100

    Next

 For Lin=2 To 30

        Range("C" & Lin).Select

        Selection.NumberFormat = "0"

        Cells(Lin, 1) = Cells(Lin, 1) * 100

    Next

End Sub

Sub quitar()

Dim lin As Integer

Dim col As Integer

For col = 1 To 3

 For lin = 2 To 30

    Cells(lin, col).Select

    Selection.NumberFormat = "0.00"

    Cells(lin, col) = Cells(lin, col) * 100

 Next

Next

End Sub