选定区域拷贝以下代码报错: ActiveChart.SetSourceData Source:=Sheet4.Range(Cells(1, 1), Cells(max, sampleNo + 1)) 我当时百思不得其解,最终在一本教材上找到了答案:当区域的开头和结尾为Cell时,没指定属性一般来说是指此单元格的值, 把值放到 range 的括号, range 的区域就不对了,当然要出错了。所以正确的代码应该是这样的: ActiveChart.SetSourceData Source:=Sheet4.Range(Cells(1, 1).address, Cells(max, sampleNo + 1).address)