[算表] VBA 向下侦测问题 sampeng0970 PTT批踢踢实业坊

楼主: sampeng0970 (sam) 2017-09-05 10:21:26

软件:Excel
版本:2010
文法如下
For i = 1 To Range("L2").End(xlDown).Row
L2是向下是带有公式的储存格，若不符合条件回传空值
我想L2向下侦测只要侦测到有文字之储存格数量
目前这语法会侦测到最底，
请问要如何写，请指教。

作者: soyoso (我是耀宗) 2017-09-05 10:29:00

Range("L2").End(xlDown).Row为回传向下最后一个包含的储存格列号，但如果储存格L2向下无其他资料时会回传该工作表最大列号，如1048576；如果有可能出现该情况的话，再以下往上range.end(xlup).row的方式来回传最后一个包含储存格的列号

楼主: sampeng0970 (sam) 2017-09-05 16:08:00

For i = 1 To Range("C1").End(xlToRight).Column.End(xlToLeft).Column再侦测回来写不出来，请指教，感谢

作者: soyoso (我是耀宗) 2017-09-05 16:21:00

原po要回传最右侧有资料的储存格栏号吗？

楼主: sampeng0970 (sam) 2017-09-05 16:23:00

有，如果只有一栏资料是C1

作者: soyoso (我是耀宗) 2017-09-05 16:23:00

如果是的话range("xfd1").end(xltoleft).column

楼主: sampeng0970 (sam) 2017-09-05 16:24:00

是的我要回传最右侧栏号，但有可能只有一栏资料

作者: soyoso (我是耀宗) 2017-09-05 16:26:00

那以回文的方式试试，从最右侧储存格xfd1往左

楼主: sampeng0970 (sam) 2017-09-05 16:38:00

感谢SO大，反向侦测厉害。受教了EXCEL档案名称的后面加上今天日期的语法。请指教

作者: soyoso (我是耀宗) 2017-09-05 17:22:00

date可取得包含西元年/月/日，但/不为档名的合法字符可以replace取代；如要格式固定如20170905的话，date配合format，格式yyyymmdd之类的

楼主: sampeng0970 (sam) 2017-09-06 09:29:00

https://imgur.com/a/TuKY0类似这样可是不知如何串接今天日期还有路径未必每台电脑都是ADMIN，要如何克服再次麻烦指教，感谢。

作者: soyoso (我是耀宗) 2017-09-06 10:08:00

如要取使用者名称，可试试application.username串接的符号为 &，例如字串&format(date,"yyyymmdd")之类

继续阅读