返回列表 上一主題 發帖

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

lamihsuen

帖子
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"欄的最後列數
收藏 分享

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
2#
發表於 2012-6-21 18:29 | 顯示全部帖子
謝謝 GBKEE 大哥的幫忙.問題已解決,是否可再幫忙,解釋一下
"xlRow = .Range("B" & .Rows.Count).End(xlUp).Row"
這段式程的語法
另外再請問如何產生程式左邊的號碼?
再次謝謝你!

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
3#
發表於 2012-6-22 17:08 | 顯示全部帖子
回復 4# GBKEE

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

TOP

lamihsuen

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

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題