Vba 如何插入基于单元格的值

如何让VBA选择A9中的内容，使用A9中的值（即B5），然后转到B5并插入值22（即B9中的值）

输出应如下所示：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

---

22在B5中插入的值。有没有一种方法可以使用excel公式或VBA编程语言来实现这一点

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

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

End Sub

Range("A9").select

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

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

但我觉得也没有必要使用偏移功能：

您可以使用：

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

---

要参考A9中的值，可以使用

Range("A9").select

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

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

但我觉得也没有必要使用偏移功能：

您可以使用：

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

---

要参考A9中的值，可以使用

Range("A9").select

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

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

但我觉得也没有必要使用偏移功能：

您可以使用：

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

---

要参考A9中的值，可以使用

Range("A9").select

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

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

但我觉得也没有必要使用偏移功能：

您可以使用：

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

---

您可能希望执行以下操作：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

---

您可能希望执行以下操作：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

---

您可能希望执行以下操作：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

---

您可能希望执行以下操作：

Sub asd()

    Dim d 

    d = [A9].Value

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

End Sub

尝试此模块：

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

尝试此模块：

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

尝试此模块：

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

尝试此模块：

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

---

回答评论中的问题（首先检查单元格的内容是否有范围）：

---

回答评论中的问题（首先检查单元格的内容是否有范围）：

---

回答评论中的问题（首先检查单元格的内容是否有范围）：

---

回答评论中的问题（首先检查单元格的内容是否有范围）：

---

---

这不会在B5单元格中添加22个数字，我希望程序使用A9中的B5->转到B5并插入一个值22@pnuts我错过了什么？@user3561813我还有一个问题，如果A9没有值，我如何编写vba，以便如果A9中有内容，则将B9中的内容插入A9中，但是，如果A9中没有任何内容，那么就什么都不要做？@user3812613我在下面留下另一个答案，以及对这个问题的回答（比试图在注释中添加答案更容易）。这不会在B5单元格中添加22个数字吗？，我希望程序使用A9中的B5->转到B5并插入一个值22@pnuts我错过了什么？@user3561813我还有一个问题，如果A9没有值，我如何编写vba，以便如果A9中有内容，则将B9中的内容插入A9中，但是，如果A9中没有任何内容，那么就什么都不要做？@user3812613我在下面留下另一个答案，以及对这个问题的回答（比试图在注释中添加答案更容易）。这不会在B5单元格中添加22个数字吗？，我希望程序使用A9中的B5->转到B5并插入一个值22@pnuts我错过了什么？@user3561813我还有一个问题，如果A9没有值，我如何编写vba，以便如果A9中有内容，则将B9中的内容插入A9中，但是，如果A9中没有任何内容，那么就什么都不要做？@user3812613我在下面留下另一个答案，以及对这个问题的回答（比试图在注释中添加答案更容易）。这不会在B5单元格中添加22个数字吗？，我希望程序使用A9中的B5->转到B5并插入一个值22@pnuts我错过了什么？@user3561813我还有一个问题，如果A9没有值，我如何编写vba，以便如果A9中有内容，则将B9中的内容插入A9中，但是，如果A9中没有任何内容，那么就什么都不要做？@user3812613我在下面留下另一个答案，以及对这个问题的回答（比试图在注释中添加答案更容易）。如果我想得到A9和A10中的内容，并在A9和A10中放置22，我是否只需要创建另一个类似sub asd2（）的方法，但这次是针对A10的？很抱歉，我没有跟随你，请你重新措辞好吗？如果我想得到A9和A10中的任何内容，并在A9和A10中放置22，我是否只需要创建另一个方法，如sub asd2（），但这次是为A10？对不起，我没有听你的，请你重新措辞好吗？如果我想得到A9和A10中的任何内容，并在A9和A10中放置22，我是否只需要创建另一个方法，如sub asd2（）但这一次是针对A10的？对不起，我没听懂你的意思，请你重新措辞好吗？如果我想得到A9和A10中的内容，并将22放置在A9和A10中，我是否只需要制作另一个类似sub asd2（）的方法，但这一次是针对A10的方法？对不起，我没有听懂你的意思，请你重新措辞好吗？