作者sampeng0970 (sam)
看板Office
標題[算表] VBA 向下偵測問題
時間Tue Sep 5 10:21:26 2017
軟體:Excel
版本:2010
文法如下
For i = 1 To Range("L2").End(xlDown).Row
L2是向下是帶有公式的儲存格，若不符合條件回傳空值
我想L2向下偵測只要偵測到有文字之儲存格數量
目前這語法會偵測到最底，
請問要如何寫，請指教。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.164.242.122
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1504578089.A.3C7.html
1F：→ soyoso: Range("L2").End(xlDown).Row為回傳向下最後一個包含的儲 09/05 10:29
2F：→ soyoso: 存格列號，但如果儲存格L2向下無其他資料時會回傳該工作表 09/05 10:30
3F：→ soyoso: 最大列號，如1048576；如果有可能出現該情況的話，再以下 09/05 10:31
4F：→ soyoso: 往上range.end(xlup).row的方式來回傳最後一個包含儲存格 09/05 10:32
5F：→ soyoso: 的列號 09/05 10:32
6F：→ sampeng0970: For i = 1 To Range("C1").End(xlToRight).Column.En 09/05 16:08
7F：→ sampeng0970: d(xlToLeft).Column 09/05 16:09
8F：→ sampeng0970: 再偵測回來寫不出來，請指教，感謝 09/05 16:10
9F：→ soyoso: 原po要回傳最右側有資料的儲存格欄號嗎？ 09/05 16:21
10F：→ sampeng0970: 有，如果只有一欄資料是C1 09/05 16:23
11F：→ soyoso: 如果是的話range("xfd1").end(xltoleft).column 09/05 16:23
12F：→ sampeng0970: 是的我要回傳最右側欄號，但有可能只有一欄資料 09/05 16:24
13F：→ soyoso: 那以回文的方式試試，從最右側儲存格xfd1往左 09/05 16:26
14F：→ sampeng0970: 感謝SO大，反向偵測厲害。受教了 09/05 16:38
15F：→ sampeng0970: EXCEL檔案名稱的後面加上今天日期的語法。請指教 09/05 17:18
16F：→ soyoso: date可取得包含西元年/月/日，但/不為檔名的合法字元 09/05 17:22
17F：→ soyoso: 可以replace取代；如要格式固定如20170905的話，date配合 09/05 17:23
18F：→ soyoso: format，格式yyyymmdd之類的 09/05 17:23
20F：→ sampeng0970: 類似這樣可是不知如何串接今天日期 09/06 09:30
21F：→ sampeng0970: 還有路徑未必每台電腦都是ADMIN，要如何克服 09/06 09:31
22F：→ sampeng0970: 再次麻煩指教，感謝。 09/06 09:31
23F：→ soyoso: 如要取使用者名稱，可試試application.username 09/06 10:08
24F：→ soyoso: 串接的符號為 &，例如字串&format(date,"yyyymmdd")之類 09/06 10:09