[已解决]【求助】For C=1To26,排除C=4,9,20的语句

xdwy81129

 下面的宏有循环1-26，可我想省略下时间，不计算第4,9,20列

我只会增加一个的排除 If C <> 4 Then  最后加END IF,所以请教老师增加什么语句来排除这3列不来计算。

Sub 帮助()
 Dim rng, C&, I&, R&
 R = [B65536].End(xlUp).Row
 rng = Range("A2:Z" & R)
 For C = 1 To 26 

For I = 1 To UBound(rng) - 1
 If rng(I, C) <> "T" And rng(I + 1, C) <> "T" Then rng(I, C) = ""
 Next
 Next
 Range("A2:Z" & R - 2) = rng
 End Sub

[此贴子已经被作者于2009-10-4 19:28:20编辑过]

最佳答案

月排行榜 / 总排行榜

wayy

2009-10-4 19:34

If C&nbsp;&lt;&gt;&nbsp;4&nbsp; and c &lt;&gt;9 and c &lt;&gt; 20 then

跳转到最佳答案楼层

wayy

If C&nbsp;&lt;&gt;&nbsp;4&nbsp; and c &lt;&gt;9 and c &lt;&gt; 20 then

xdwy81129

呀，厉害，我写成了OR连接。

函数小菜鸟

Sub 帮助()
    Dim rng, C&, I&, R&
    R = [B65536].End(xlUp).Row
    rng = Range("A2:Z" & R)
    For C = 1 To 26
        If Not (C = 4 Or C = 9 Or C = 20) Then
            For I = 1 To UBound(rng) - 1
                If rng(I, C) <> "T" And rng(I + 1, C) <> "T" Then rng(I, C) = ""
            Next
        End If
    Next
    Range("A2:Z" & R - 2) = rng
 End Sub

xdwy81129

QUOTE:

以下是引用函数小菜鸟在2009-10-4 19:47:00的发言：
Sub 帮助()
    Dim rng, C&, I&, R&
    R = [B65536].End(xlUp).Row
    rng = Range("A2:Z" & R)
    For C = 1 To 26
        If Not (C = 4 Or C = 9 Or C = 20) Then
            For I = 1 To UBound(rng) - 1
                If rng(I, C) <> "T" And rng(I + 1, C) <> "T" Then rng(I, C) = ""
            Next
        End If
    Next
    Range("A2:Z" & R - 2) = rng
 End Sub

 

看见函老师的答案晚了，金币应该给老师的。

[em17]

xdwy81129

下次问题函老师再赐教，补老师BB了[em01][em01][em01]

我爱功夫

[em01][em01]学习