返回列表下一主題上一主題發帖

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

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 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

樓主熱帖

羅

garypai

小學生 Rank: 1

帖子: 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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 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

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題