[算表] VBA 向下偵測問題

[sampeng0970 (sam)]

軟體:Excel

版本:2010

文法如下

 For i = 1 To Range("L2").End(xlDown).Row
L2是向下是帶有公式的儲存格，若不符合條件回傳空值

我想L2向下偵測只要偵測到有文字之儲存格數量
目前這語法會偵測到最底，
請問要如何寫，請指教。

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.164.242.122
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504578089.A.3C7.html
→ soyoso: Range("L2").End(xlDown).Row為回傳向下最後一個包含的儲
→ soyoso: 存格列號，但如果儲存格L2向下無其他資料時會回傳該工作表
→ soyoso: 最大列號，如1048576；如果有可能出現該情況的話，再以下
→ soyoso: 往上range.end(xlup).row的方式來回傳最後一個包含儲存格
→ soyoso: 的列號
→ sampeng0970: For i = 1 To Range("C1").End(xlToRight).Column.En
→ sampeng0970: d(xlToLeft).Column
→ sampeng0970: 再偵測回來寫不出來，請指教，感謝
→ soyoso: 原po要回傳最右側有資料的儲存格欄號嗎？
→ sampeng0970: 有，如果只有一欄資料是C1
→ soyoso: 如果是的話range("xfd1").end(xltoleft).column
→ sampeng0970: 是的我要回傳最右側欄號，但有可能只有一欄資料
→ soyoso: 那以回文的方式試試，從最右側儲存格xfd1往左
→ sampeng0970: 感謝SO大，反向偵測厲害。受教了
→ sampeng0970: EXCEL檔案名稱的後面加上今天日期的語法。請指教
→ soyoso: date可取得包含西元年/月/日，但/不為檔名的合法字元
→ soyoso: 可以replace取代；如要格式固定如20170905的話，date配合
→ soyoso: format，格式yyyymmdd之類的
→ sampeng0970: https://imgur.com/a/TuKY0
→ sampeng0970: 類似這樣可是不知如何串接今天日期
→ sampeng0970: 還有路徑未必每台電腦都是ADMIN，要如何克服
→ sampeng0970: 再次麻煩指教，感謝。
→ soyoso: 如要取使用者名稱，可試試application.username
→ soyoso: 串接的符號為 &，例如字串&format(date,"yyyymmdd")之類