如何插入基于单元格的值

Question

How can I tell VBA to select whatever is in A9, use the value in A9 (which is B5), then go to B5 and insert a value 22 (which is in B9).

The output should look something like this:

22 value inserted in B5. Is there a way I can do this using excel formula or VBA programming language.

Answer 1

Sub DoIt1()
    Range(Range("A9")).Value = Range("B9").Value

End Sub

Answer 2

You might want to do something like this:

Sub asd()

    Dim d 

    d = [A9].Value

    Range(d) = [A9].Offset(0, 1)

End Sub

Answer 3

Try this module:

sub copy_paste_fun()

    dim new_range as string
    new_range = range("A9").value

    dim new_value as double
    new_value = range("B9").value

    range(new_range) = new_value
end sub

Answer 4

To refer to value in A9 you can use

Range("A9").select

To refer to value in adjacent B column you can use Offset function.

Range("A9").Offset(0, 1).Select

But I feel there is no need of using offset function too:

You can use:

Range(Range("A9")).Value = Range("B9").Value

Answer 5

In response to a question in the comments (checking if the cell has a Range in its contents first):

Sub DoDoDo()
    Dim rng As Range

    On Error Resume Next
        Set rng = Range(Range("A9").Value)
    On Error GoTo 0

    If Not rng Is Nothing Then
        rng.Value = 99
    Else
        'Do Nothing or Catch the error
    End If
End Sub