返回列表 上一主題 發帖

[發問] 抓取最後一欄有資料之欄DATA之語法請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-23 16:03 | 只看該作者

[發問] 抓取最後一欄有資料之欄DATA之語法請教

DEAR ALL 大大  
  1   X = Sheet2.[A65536].End(xlUp).Row -- 會抓取工作表SHEET2之 A欄之最後一列有資料之列DATA
  2   請問欄如何抓取??
  3   煩不吝賜教   THANKS*10000
收藏 分享
羅

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2014-12-24 08:34 | 只看該作者
回復 1# rouber590324

  1   X = Sheet2.[A65536].End(xlUp).Row -- 會抓取工作表SHEET2之 A欄之最後一列有資料之列DATA
  2   請問欄如何抓取??
       A=Sheet2.[A65536].End(xlUp).column
      欄、列其實都是英文單字。
學習才能提升自己

TOP

garypai

帖子
1 
主題
0 
精華
0 
積分
24 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
10 
性別
男 
來自
TW 
註冊時間
2014-12-16 
最後登錄
2015-3-13 
3#
發表於 2014-12-25 00:41 | 只看該作者
回復 1# rouber590324

你要的應該是某一列最後右邊欄的欄位數吧
可參考以下方式,是抓第一列最右邊有資料的欄位


Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Select
Gary

TOP

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