求教 Excel VBA range的用法 以及WorksheetFunction.Sum的用法

lordkiller

VBA菜鸟，编写的时候遇到的问题，还请高手告知，谢谢！！

1,Range的用法问题。

在sheet1页面里面操作（sheet1 是active页)，但是需要把sheet2里面单元格的内容复制过来，range用法报错。应该怎么用才对呢？{:soso_e101:}

见下：

Sheets("sheet1").Select

...................

...................

Worksheets("sheet2").range(cells(i,1),cells(j,1)).select

Selection.Copy

range(cells(1,1)).select

ActiveSheet.Paste

2.WorksheetFunction.Sum用法问题。

在sheet1页面里面操作（sheet1 是active页)，需要把sheet2里面的Cells(i,5)到Cells(i,9)的数值加总参与运算。

但是不知道怎么做（尝试WorksheetFunction.Sum(Range(sheets("sheet2").Cells(i, 5), sheets("sheet2").Cells(i, 8))) 报错）， 以下是不得已只能一个一个加得到的结果{:soso_e149:}。

Cells(i, 9).Value = WorksheetFunction.Sum(Range(Cells(i, 5), Cells(i, 8))) + Sheets("sheet2

").Cells(i, 5).Value + Sheets("sheet2").Cells(i, 6).Value + Sheets("sheet2").Cells(i, 7).Value + Sheets("sheet2").Cells(i, 8).Value + Sheets("sheet2").Cells(i, 9).Value

phsu

(1)range(cells(1,1)).select 改成 cells(1,1).select
(2)改成WorksheetFunction.Sum(Sheets("sheet2").Range("E" & i  & ":H" & i ))

gdw831001

range(cells(1,1)).select不对，Cells(1, 1).Select

ili

Worksheets("sheet2").Range(Worksheets("sheet2").Cells(i, 1), Worksheets("sheet2").Cells(j, 1)).Select
如果range括号内是跟两个单元格对象，一定要保证这两个对象以及range本身的父对象，也就是前缀一致。

lordkiller

谢谢各位大侠，第一个问题还是报错，我上传了图片，举了一个最简单的例子，图片里active的sheet是sheet1,现在想让程序选择sheet2里面的一个范围，然后再复制粘贴到sheet1的某个单元格。（这里只写了select语句，后面的语句没有写）。这条语句：Worksheets("sheet2").Range(Worksheets("sheet2").Cells(i, 1), Worksheets("sheet2").Cells(j, 1)).Select 报错。


应该怎么改啊？