返回列表 上一主題 發帖

[發問] 請教各位前輩在程式公式中要如何取得欄位最後列數

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-6-21 05:54 | 顯示全部帖子
回復 1# lamihsuen
  1. Sub Ex()
  2.     Dim wr, xlRow As Integer
  3.     For wr = 4 To Worksheets.Count
  4.         With Worksheets(wr)
  5.             xlRow = .Range("B" & .Rows.Count).End(xlUp).Row
  6.             .Range("A3").Formula = "=COUNT(B6:B" & xlRow & ")"
  7.             .Range("J3").Formula = "=AVERAGE(B6:B" & xlRow & ")"
  8.         End With
  9.     Next wr
  10. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-6-22 07:00 | 顯示全部帖子
回復 3# lamihsuen
"xlRow = .Range("B" & .Rows.Count).End(xlUp).Row"
.Rows.Count  :傳回 列的總數  
Rows 屬性  傳回 Range 物件(範圍)的所有列的集合。
Count 屬性 傳回一個 Long (長整數)，等於在一個集合物件中的物件數目。唯讀。
End 屬性    該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵 (xlUp)、END+向下鍵(xlDown)、END+向左鍵(xlToLeft)、 END+向右鍵(xlToRight)
END+向上鍵 (xlUp)、END+向下鍵(xlDown)、END+向左鍵(xlToLeft)、 END+向右鍵(xlToRight)
Row 屬性   傳回列的號數。唯讀 Long。

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題