0

vba 新手，粘贴时遇到困难。这是我的代码：

将 xtext 调暗为字符串

将 ytext 作为字符串

x = ActiveSheet.Range("A8")

y = ActiveSheet.Range("A9")

范围（“A6”）。选择选择。复制

范围（“xtext：ytext”）。选择选择。粘贴

结束子

单元格 A8（变量 x）的值为 B2，单元格 A9（变量 y）为 B10。我以为它会从 B2:B10 粘贴，而是粘贴到 x:y 列中。所以我有点希望它像间接公式一样工作？我不确定这是否接近我想要的？

谢谢！

4

1 回答 1

0

重命名你的变量——“x”和“y”是不好的，因为它们并不代表它们持有什么。在 Excel 中尤其如此，其中一个字母也指一列——这就是这里发生的情况；您已发布到“X:Y”范围，这只是对所有 X 列和所有 Y 列的选择。

您的整个代码一起变成[注意我将您对 x 和 y 的定义更改为范围，而不是文本字符串，因此必须通过“set = to”使它们等于您的 A8 和 A9] [假设在您的电子表格中单元格 A8 说“B2”，A9 说“B10”]：

Sub test()

Dim x As Range
Dim y As Range

Set x = ActiveSheet.Range("A8")
Set y = ActiveSheet.Range("A9")


Range("A6").Select
Selection.Copy

Range(x.Text, y.Text).Select
ActiveSheet.Paste

End Sub

编辑为现在间接引用输入到单元格 A8 和 A9 中的内容

于 2015-07-10T18:01:41.410 回答