Range(Cells(),Cells()) 提示_类型错误对象不匹配的小技巧

天步犹坚

我们选定单元格区域的时候，经常会因为列是动态的，不使用字母来代表列，而用数字，比如这样：Range(Cells(1,1),Cells(1,9)）
这行代码表示当前的Range是1行1列起，1行9列止，我们都可以用动态的row,column来代表行和列。
在实际使用中，我们可能写成这样：
Range(Cells(row,column),Cells(row,column)) = sheet1.Range(Cells(row,column),Cells(row,column))
这行代码会提示类型错误，对象不匹配，原因在于，Range我们已经指明了，= 左边代表当前激活表的Range，=右边代表sheet1表的Range，而Cells系统不知道是哪里的Cells，提示错误。改成如下，指明Cells的父标签即可：
Range(Cells(row,column),Cells(row,column)) = sheet1.Range(sheet1.Cells(row,column),sheet1.Cells(row,column))
这样就不会在报错了。

左耳fwlb

不知道是啥意思

jinglchen

学习了！！！！！

f8b1987

解决了我一大困惑

vitrel

关于楼主所提的问题，我之前也曾花时间整理过，算是小有心得，现与初学者们分享一下：
（如有不足，望指正）

Cells是某个单元格
Rows是某行
Columns是某列

而Range是由上述元素所定义的一片区域，因此使用时如：
Range(Cells(1,"A"), Cells(3,"C"))                'A1:C3
Range(Rows(1), Rows(3))                         '第1~3行
Range(Columns(1), Columns(3))               '第1~3列

对于跨工作表引用而必须指定工作表时，工作表一定要加在Cells、Rows、Columns前，至于Range前加不加则无所谓，如：

Set sh = Workbooks("薄名").Worksheets("表名")
Range(sh.Cells(1,"A"), sh.Cells(3,"C"))        '工作表sh的A1:C3
Range(sh.Rows(1), sh.Rows(3))                '工作表sh的第1~3行
Range(sh.Columns(1), sh.Columns(3))        '工作表sh的第1~3列

sh.Range(sh.Cells(1,"A"), sh.Cells(3,"C"))        '也正确
sh.Range(sh.Rows(1), sh.Rows(3))                '也正确
sh.Range(sh.Columns(1), sh.Columns(3))        '也正确

sh.Range(Cells(1,"A"), Cells(3,"C"))        '错误
sh.Range(Rows(1), Rows(3))                '错误
sh.Range(Columns(1), Columns(3))        '错误

爱淋雨的猫先生

非常感谢！！！

TX-SolarTerms

vitrel 发表于 2018-7-1 15:51
关于楼主所提的问题，我之前也曾花时间整理过，算是小有心得，现与初学者们分享一下：
（如有不足，望指正 ...

Dim sh, row As Long, lineA, lineC As String
    Set sh = Sheets("系统导入整理资料") '要处理的excel表
    Let row = 527 '从第527行开始处理
    Let lineA = "a" '根据a列来判断
    Let lineC = "c" '对c列进行处理
   
    Range(Cells(lineC, row), Cells(lineC, row + 1)).Merge ’对c列的指定行进行合并处理
我这样写，还是报类型错误

15221387005

vitrel 发表于 2018-7-1 15:51
关于楼主所提的问题，我之前也曾花时间整理过，算是小有心得，现与初学者们分享一下：
（如有不足，望指正 ...

如果cells的行列是实时读取出来的呢？

        Range(Sheets("Workload").Cells(2, 7), Sheets("Workload").Cells(Range("a2").End(xlDown).Row, 7)).Select

报错out of range

15221387005

15221387005 发表于 2020-5-14 10:24
如果cells的行列是实时读取出来的呢？

        Range(Sheets("Workload").Cells(2, 7), Sheets("Workl ...

Set sh = wb.Sheets("Calendar")
CurrRow = sh.Range("a1").End(xlDown).Row
CurrColumn = sh.Range("a1").End(xlDown).Column
sh.Range(sh.Cells(1, 1), sh.Cells(CurrRow, CurrColumn)).Select
还是报错