帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-6-21 05:28 | 只看該作者

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

本帖最後由 lamihsuen 於 2012-6-21 05:30 編輯

For wr = 4 To Worksheets.Count
Worksheets(wr).Range("A3").Formula = "=COUNT(B6:B51)"
Worksheets(wr).Range("J3").Formula = "=AVERAGE(B6:B51)"
next wr
上列中 "=COUNT(B6:B51)"因為每一個工作表中的"B51"不確定因此在此公式中如何取得"B"欄的最後列數

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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-21 05:54 | 只看該作者

回復 1# lamihsuen

Sub Ex()
Dim wr, xlRow As Integer
For wr = 4 To Worksheets.Count
With Worksheets(wr)
xlRow = .Range("B" & .Rows.Count).End(xlUp).Row
.Range("A3").Formula = "=COUNT(B6:B" & xlRow & ")"
.Range("J3").Formula = "=AVERAGE(B6:B" & xlRow & ")"
End With
Next wr
End Sub

複製代碼

TOP

lamihsuen

小學生 Rank: 1

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

3^#

發表於 2012-6-21 18:29 | 只看該作者

謝謝 GBKEE 大哥的幫忙.問題已解決,是否可再幫忙,解釋一下
"xlRow = .Range("B" & .Rows.Count).End(xlUp).Row"
這段式程的語法
另外再請問如何產生程式左邊的號碼?
再次謝謝你!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 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

lamihsuen

小學生 Rank: 1

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

5^#

發表於 2012-6-22 17:08 | 只看該作者

回復 4# GBKEE

非常感謝大哥前輩的解說.真的受益退良多

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 555
主題: 58
精華: 0
積分: 622
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-11

6^#

發表於 2012-6-22 18:18 | 只看該作者

回復 4# GBKEE

G大大~
                  xlRow = .Range("B" & .Rows.Count).End(xlUp).Row
                  這句其實用
                  xlRow = .Range("B65536").End(xlUp).Row
                  會否更直覺一點呢??

學習才能提升自己

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2012-6-22 19:24 | 只看該作者

回復 6# hugh0620

2003以前最大列是65536，這是假設用的不一定哪個版本。

TOP

ck00

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2012-6-22
最後登錄: 2012-7-7

8^#

發表於 2012-6-22 19:31 | 只看該作者

worksheetfunction.CountA([D

])
應該可以吧,前提要整列也没有空格才計到喔

TOP

ck00

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2012-6-22
最後登錄: 2012-7-7

9^#

發表於 2012-6-22 19:33 | 只看該作者

回復 hugh0620

2003以前最大列是65536，這是假設用的不一定哪個版本。
oobird 發表於 2012-6-22 19:24

他的表格應該没這MO重吧;P

2010版是一百萬,對不?

TOP

lamihsuen

小學生 Rank: 1

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

10^#

發表於 2012-6-23 18:01 | 只看該作者

本帖最後由 lamihsuen 於 2012-6-23 18:11 編輯

回復 6# hugh0620
第一次表格最多只有100列,然後要把第一表格篩選符合出的資料列複製到往一下的表格,但第一次表格資料還要保留,因此我還要請問?
Worksheets(4).Range("A1").Value 儲存格式已設定數值格式,
Dim I As Integer
I = 6 + (Worksheets(4).Range("A1").Value) + 3 請問語法有錯誤嗎?
因為執行時會顯示型態不符的錯誤訊息
謝謝各位大哥幫忙
PS : xlRow = .Range("B" & .Rows.Count).End(xlUp).Row
下一次表格是否還可繼續使用下去?

TOP