如何插入基於單元格的值

Question

如何告訴VBA選擇A9中的任何內容，使用A9中的值（即B5），然后轉到B5並插入值22（B9中）。

輸出應如下所示：

B5中插入了22個值。 有沒有一種方法可以使用excel公式或VBA編程語言來實現。

Answer 1

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

End Sub

Answer 2

您可能想要執行以下操作：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

Answer 3

試試這個模塊：

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

要引用A9中的值，您可以使用

Range("A9").select

要引用相鄰的B列中的值，可以使用偏移功能。

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

但是我覺得也不需要使用偏移功能：

您可以使用：

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

Answer 5

回應評論中的問題（首先檢查單元格的內容是否具有范圍）：

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