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操控电子表的代码被卡住了