A = Selection.Address '例如: A : A: A:B–A到B列,$A 1 : 1: 1:C$3–区域range(“A1:C3”),$1: 3 − − 第 一 行 到 第 三 行 I f A = " " T h e n E x i t S u b a r r 1 = S p l i t ( A , " 3--第一行到第三行 If A = "" Then Exit Sub arr1 = Split(A, " 3−−第一行到第三行IfA=""ThenExitSubarr1=Split(A,"") '按 拆 分 , 得 到 的 结 果 装 入 数 组 a r r 1 中 I f a r r 1 ( 1 ) L i k e " ∗ : " T h e n I f I s N u m e r i c ( M i d ( a r r 1 ( 1 )
VBA学习
最新推荐文章于 2022-05-08 17:15:27 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)