返回列表 上一主題 發帖

[發問] EXCEL VBA選取部分儲存格範圍-(指定儲存格向下及向右至邊界處)

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
281  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2026-10-27 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
1# 跳轉到 »
發表於 2014-12-22 15:47 | 顯示全部帖子
回復 1# junkwei

試試看!!
  1. Sub test()

  3.     last_rows = Selection.SpecialCells(xlCellTypeLastCell).Row
  4.     last_columns = Selection.SpecialCells(xlCellTypeLastCell).Column

  6.     Set table_array = Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(last_rows, last_columns))
  7.     MsgBox table_array(3, 2)
  8. End Sub
複製代碼

TOP

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
281  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2026-10-27 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
2#
發表於 2014-12-28 19:53 | 顯示全部帖子
本帖最後由 ashan0418 於 2014-12-28 19:55 編輯

回復 3# junkwei

你是指要從C2開始並向下及向右指定所有資料的Range嗎??

若是將
Set table_array = Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(last_rows, last_columns))

改成
Set table_array = Range(Cells(3,2), Cells(last_rows, last_columns))

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題