Suvi_0202

7年前

帮你写了个宏，执行时，完全满足你的要求。
第三次改了一下，还有什么问题，欢迎提出：

Sub Zh()
Dim S, i As Integer, K(), E As String, Sw As Integer, U As String
d =&nbs

            

              0
              8