返回列表 上一主題 發帖

[發問] 請問這式子怎麼精簡?(解決了，感恩!)

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2010-8-10 00:44 | 顯示全部帖子
Dim iI%

  For iI = 3 To 36
    Sheets(5).Cells(iI + 1, 10).Value = Application.Sum(Application.Index(Arr1, 0, iI))
  Next iI

當 Range() 的元素需要做計算時,
可以善用 Cells() 來取代.

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題