Excel VBA转换一系列单元格的值

Question

I have two columns from A1 to B10 in Sheet1. each cells in these columns have the strings "a" or "b" or "c"

     A    B
1    a    a
2    a    b
3    b    c
4    b    b
5    a    a
6    c    b
7    a    a
8    a    c
9    b    a
10   a    b

I want to convert every cell that has a value "a" to the integer "12", "b" to the integer "14" and "c" to the integer "16" using VBA. and show the results in Sheet2 in corresponding cells.

     A   B
1   12   12
2   12   14  
3   14   16
4   14   14
5   12   12
6   16   14
7   12   12
8   12   16
9   14   12
10  12   14

I have this very incomplete codes:

Sub getConvert()

For Each original In Range("A1 , B10")
 Select Case original
   Case "a"
    CorrectedText = Replace(original, "a", "12")
   Case "b"
    CorrectedText = Replace(original, "b", "14")
   Case Else
    CorrectedText = Replace(original, "c", "16")
 End Select
Next
End Sub

Answer 1

You need to access each cell, read its value then overwrite in your loop:

Dim original As Range, destination As Worksheet

Set destination = Sheets("Sheet2")

For Each original In Range("A1:B10")
    Select Case original.Value
        Case "a": destination.Range(original.Address).Value = "12"
        Case "b": destination.Range(original.Address).Value = "14"
        Case "c": destination.Range(original.Address).Value = "16"
    End Select
Next