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

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

1,Range的用法问题。
在sheet1页面里面操作(sheet1 是active页),但是需要把sheet2里面单元格的内容复制过来,range用法报错。到底应该怎么用才对。
见下:
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))) 报错)

以下是不得已只能一个一个加得到的结果。
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

第1个回答  2015-06-12
Worksheets("sheet2").range(Worksheets("sheet2").cells(i,1),Worksheets("sheet2").cells(j,1)).select

WorksheetFunction.Sum(sheets("sheet2").Range(sheets("sheet2").Cells(i, 5), sheets("sheet2").Cells(i, 8)))本回答被网友采纳
相似回答