软件: Excel VBA
版本: 2010
各位先进大家好
在下是 VBA 新手
有批好几页
每页接近万列的资料要整理
每列约有 50~100 个储存格
资料大致如下
A B C | D E F G H I J K L M
|
1 [7] (5) 1 | [3] (4) 13 [2] (2) 7 40 [7] (5) 1
|
2 [2] (4) 9 | [9] (6) 4 [2] (4) 8 5 16 9
|
3 [6] (3) 20 | [6] (5) 1 (8) 3 2 1 (3) 29 20
|
在下希望可以在
A 栏：找出同列中最后笔包含 "[" 的文字
B 栏：找出同列中最后笔包含 "(" 的文字
C 栏：找出同列中最后笔数字
请问该如何用 VBA Function 处理呢？
麻烦各为先进了
感激不尽！

循环于范围，instr判断储存格内包含"["或"("，大于0时回传该储存格文字，后离开循环exit数字方面如该栏都为数字，而要找出最后一笔有值的话，可以range.end或range.end.row如该栏不一定都为数字，可以isnumeric，但因()有可能也会被判断为数字，可配合instr为0排除；另也可以vartype或typename(range.value)循环部分则是以反序step负值的方式

感谢so大，在下先依法试试，有问题再请教