返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題