作者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/cn.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