| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- VBA转forTABLE (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135836) |
| -- 作者：zhuxinhui -- 发布时间：2019/6/4 11:44:00 -- VBA转forTABLE Dim I As Integer Dim K As Integer For I = 3 To Sheets("???").[B65536].End(xlUp).Row Range("A" & I) = IIf(Range("A" & I) = "???????", Range("A" & I - 1), (IIf(Range("A" & I) = "???????", Range("A" & I - 1), (IIf(Range("A" & I) = "С??", "С??", (IIf(Range("A" & I) = "????????", Range("A" & I - 1), (IIf(Range("A" & I) = " ", " ", Range("A" & I)))))))))) Next 这个VBA代码转化成FORTABLE操控电子表的代码被卡住了
|
| -- 作者：有点甜 -- 发布时间：2019/6/4 12:00:00 -- 参考吧
http://www.foxtable.com/webhelp/scr/2121.htm
|
| -- 作者：zhuxinhui -- 发布时间：2019/6/4 13:55:00 -- 已解决 |