内容简介:翻译自:https://stackoverflow.com/questions/17733541/why-does-range-work-but-not-cells
我试图通过将值从一个范围分配到另一个范围来将一些数据从一个工作簿移动到另一个工作簿.当我使用普通的Range语法指定目标范围(Range(“A1:B2”))时,我的代码可以正常工作,但如果我尝试使用Range,Cells语法(范围(单元格(1,1),单元格(2) ,2)))我的代码不起作用.
我激活目标工作簿(ActiveWorkbook)并在源工作簿(ThisWorkbook)中运行代码.
此代码有效:
ActiveWorkbook.Worksheets(1).Range("A1:B2").Value _ = ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value
但是这段代码没有:
ActiveWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value _ = ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value
我得到的错误是运行时错误’1004’:应用程序定义的错误或对象定义的错误.
有谁知道为什么使用细胞对象导致我的问题,或者是否有其他问题我不知道?
问题是Cell是不合格的,这意味着这些单元格所引用的表单根据代码的位置而不同.无论何时调用Range或Cells或Rows或UsedRange或任何返回Range对象的内容,并且您没有指定它所在的工作表,工作表将根据以下内容进行分配:
>在工作表的类模块中:该工作表无论激活什么
>在任何其他模块中:ActiveSheet
您限定了Range引用,但Cells引用是不合格的,可能指向Activesheet.这就像写作
ThisWorkbook.Worksheets(1).Range(ActiveSheet.Cells(1, 1), ActiveSheetCells(2, 2)).Value
除非ThisWorkbook.Worksheets(1)恰好是活动的,否则这当然没有任何意义.我经常喜欢使用With块,以确保一切都完全合格.
With Sheets(1) .Range(.Cells(1,1), .Cells(2,2)).Value = "something" End With
但是你引用了两个不同的表,所以你最好使用短表变量,如:
Dim shSource As Worksheet Dim shDest As Worksheet Set shSource = ThisWorkbook.Worksheets(1) Set shDest = Workbooks("myBook").Worksheets(1) shDest.Range(shDest.Cells(1, 1), shDest.Cells(2, 2)).Value = _ shSource.Range(shSource.Cells(1, 1), shSource.Cells(2, 2)).Value
但实际上,如果您要对Cell参数进行硬编码,您可以将其清理干净
shDest.Cells(1, 1).Resize(2, 2).Value = shSource.Cells(1, 1).Resize(2, 2).Value
翻译自:https://stackoverflow.com/questions/17733541/why-does-range-work-but-not-cells
以上就是本文的全部内容,希望本文的内容对大家的学习或者工作能带来一定的帮助,也希望大家多多支持 码农网
猜你喜欢:- 又一程序员在工作岗位上倒下,幸好不是一个在加班!
- java – Maven插件前缀解析如何工作?为什么它解决“findbugs”而不是“jetty”?
- DRS是啥你都不知道?不是吧,不是吧
- TCP连接为什么只能是“3次握手”,不是2次,也不是4次?
- TCP连接为什么是三次握手,而不是两次握手,也不是四次握手?
- RAC 不是万能的
本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们。