[已解决]能不能把代码改成数组？

hadha

Sub test()
    Dim i%
    Application.ScreenUpdating = False
    With ActiveSheet
        For i = .Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
            If .Cells(2, i) <> "dd" And .Cells(2, i) <> "kk" Then
                .Cells(2, i).EntireColumn.Delete
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

hadha

fffox 发表于 2014-4-23 12:13
看一下，就是这个效果吧

能不能用数组？

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j%, s%
   
3. arr = Range("a2").CurrentRegion
   
4. Range("a2").CurrentRegion.Clear
   
5. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6. For j = 1 To UBound(arr, 2)
   
7.     If arr(1, j) <> "dd" And arr(1, j) <> "kk" Then
   
8.         s = s + 1
   
9.         For i = 1 To UBound(arr)
   
10.             brr(i, s) = arr(i, j)
    
11.         Next
    
12.     End If
    
13. Next
    
14. Range("a2").Resize(UBound(brr), s) = brr
    
15. End Sub
    

复制代码

hadha

Sub Macro1()
Dim arr, brr, i&, j%, s%
arr = Range("a2").CurrentRegion
Range("a2").CurrentRegion.Clear
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For j = 1 To UBound(arr, 2)
    If arr(1, j) <> "dd" And arr(1, j) <> "kk" Then
        s = s + 1
        For i = 1 To UBound(arr)
            brr(i, s) = arr(i, j)
        Next
    End If
Next
Range("a2").Resize(UBound(brr), s) = brr
End Sub

hadha

dsmch 发表于 2014-4-23 17:01

搞反了，dd kk是保留项，麻烦再改下，谢谢

pengyx

hadha 发表于 2014-4-22 11:10
应该是删除，不是添加复制

if ar(1, i) <> "dd" and ar(1, i) <> "kk" then
        n = n + 1
改成
if ar(1, i) ＝ "dd" or ar(1, i) ＝ "kk" then
        n = n + 1
试试哈，行不行不知道

hadha

pengyx 发表于 2014-4-24 00:49
if ar(1, i)  "dd" and ar(1, i)  "kk" then
        n = n + 1
改成

br(n) = application.index(ar, 0, i)
这里的index是什么意思？

adadada

Sub Macro1()
Dim arr, brr, i&, j%, s%
arr = Range("a2").CurrentRegion
Range("a2").CurrentRegion.Clear
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For j = 1 To UBound(arr, 2)
    If arr(1, j) = "dd" Or arr(1, j) = "kk" Then
        s = s + 1
        For i = 1 To UBound(arr)
            brr(i, s) = arr(i, j)
        Next
    End If
Next
Range("a2").Resize(UBound(brr), s) = brr
End Sub

pengyx

hadha 发表于 2014-4-24 14:57
br(n) = application.index(ar, 0, i)
这里的index是什么意思？

application.index(ar, 0, i)取数组AR的第I列， application.index(ar, I, 0)取数组AR的第I行， application.index(ar, I, J)取数组AR的第I行第J列的元素

hahada

不错，学习了