[已解决]代码能不能优化？

dsfada

代码能不能优化？

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-12 13:08

或者 x like "*a*"

跳转到最佳答案楼层

grf1973

Sub Macro1()
    Dim arr, i&
    i = Range("ac" & Rows.Count).End(xlUp).Row
    arr = Range("ac2:ax" & i)
    For i = 1 To UBound(arr)
        If arr(i, 1) > 1 Then arr(i, 2) = IIf(arr(i, 22) = "a", "s", "t")
        If arr(i, 22) = 2 Then arr(i, 20) = arr(i, 20) & "b": arr(i, 22) = ""
    Next
    Range("ac2").Resize(UBound(arr), 22) = arr
    'Range("ad2").Resize(UBound(arr)) = Application.Index(arr, , 2)
End Sub

因为涉及第2，20，22列改变，所以重新写入arr是对的。
如果只有一列改变，可用注释中的语句index。

dsfada

grf1973 发表于 2016-4-12 10:49
Sub Macro1()
    Dim arr, i&
    i = Range("ac" & Rows.Count).End(xlUp).Row

谢谢！！

dsfada

grf1973 发表于 2016-4-12 10:49
Sub Macro1()
    Dim arr, i&
    i = Range("ac" & Rows.Count).End(xlUp).Row

这句怎么修改？

grf1973

instr(x,"a")>0 表示x包含a

grf1973

或者 x like "*a*"

dsfada

grf1973 发表于 2016-4-12 13:08
instr(x,"a")>0 表示x包含a

能不能把这句代码完整写下？

dsfada

grf1973 发表于 2016-4-12 13:08
instr(x,"a")>0 表示x包含a

谢谢！！