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

lamihsuen

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

回復 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

複製代碼

lamihsuen

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

GBKEE

回復 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。

lamihsuen

回復 4# GBKEE

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

hugh0620

回復 4# GBKEE


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

oobird

回復 6# hugh0620


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

ck00

worksheetfunction.CountA([D])
應該可以吧,前提要整列也没有空格才計到喔

ck00

回復  hugh0620


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

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

2010版是一百萬,對不?

lamihsuen

回復 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
下一次表格是否還可繼續使用下去?