返回列表 上一主題 發帖

[發問] 尋找有數字最後一列的語法。

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-3-27 02:25 | 只看該作者

[發問] 尋找有數字最後一列的語法。

TEST.rar (7.35 KB)

Range("A1:A6").Interior.ColorIndex = 6
Range("G1:K16").Interior.ColorIndex = 6
Range("Q1:U18").Interior.ColorIndex = 6
Range("AA1:AE19").Interior.ColorIndex = 6
Range("AK1:AO22").Interior.ColorIndex = 6
Range("AU1:AX17").Interior.ColorIndex = 6

因為資料列還會繼續增加，所以請問:
如何將著色的位址改為有數字的最後一列?
謝謝!
收藏 分享

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2019-3-27 21:17 | 只看該作者
  1. Sub EX()
  2.     Debug.Print [A1].Offset(65535).End(xlUp).Row
  3.    
  4.     '方法一
  5.     Range("A1:A" & [A65536].End(xlUp).Row).Interior.ColorIndex = 0
  6.     Range("G1:K" & [K65536].End(xlUp).Row).Interior.ColorIndex = 6
  7.     Range("Q1:U" & [U65536].End(xlUp).Row).Interior.ColorIndex = 6
  8.     Range("AA1:AE" & [AE65536].End(xlUp).Row).Interior.ColorIndex = 6
  9.     Range("AK1:AO" & [AO65536].End(xlUp).Row).Interior.ColorIndex = 6
  10.     Range("AU1:AX" & [AX65536].End(xlUp).Row).Interior.ColorIndex = 6
  11.    
  12.    
  13.     '方法二
  14.     For Each xR In Array("A:A", "G:K", "Q:U", "AA:AE", "AK:AO", "AU:AX")
  15.         Range(xR).Interior.ColorIndex = 0
  16.         aR = Split(xR, ":")
  17.         Range(aR(0) & 1, Range(aR(1) & Rows.Count).End(xlUp)).Interior.ColorIndex = 7
  18.     Next
  19.    
  20. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2019-3-27 22:00 | 只看該作者
回復 2# ML089
版主:
謝謝您解決我的困難。

二個方法都很棒~感恩^^

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題