Question

请问您能帮我解决一个简单的问题吗？请注意，这个问题接近于最后的手段，因为我已经尝试了所有常用的网站来找到答案但令人沮丧，但没有成功。

我正在使用Excel vba。我想将工作表中的某些值复制到同一工作簿中的另一个工作表中。

我生成的代码行如下：

Range(Cells(1, 4), Cells(1, 6)) = Worksheets("Summary Data").Range(Cells(1, 4), Cells(1, 6))

这行代码产生'运行时错误1004'。

如果我运行以下代码行，它运行正常：

Range(Cells(1, 4), Cells(1, 6)) = Worksheets("Summary Data").Cells(1, 4)

但是，我想将工作表“摘要数据”中的范围复制到另一个工作表中。

有人可以通过提供上述错误的解释和/或解决方案来帮助我控制血压吗？

Answer 1

我将告诉简单的解决方案。开始录制宏并将要复制的单元格复制到另一个工作表并粘贴到那里并停止录制宏。然后转到visual basic editor并查看宏代码。

Answer 2

老问题，但是......

也许你需要对你的陈述进行限定：

Range(Cells(1, 4), Cells(1, 6)).Value = _
  Worksheets("Summary Data").Range(Cells(1, 4), Cells(1, 6)).value

或更充分地限定您的范围：

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ActiveSheet
Set ws2 = Worksheets("Summary Data")

ws1.Range(ws1.Cells(1,4), ws1.Cells(1,6)).Value = _
  ws2.Range(ws2.Cells(1,4), ws2.Cells(1,6)).Value

使用Excel VBA将值读入图表

2 个答案: