[已解决]那位高手帮忙写个程序

BAIXINGR · 发表于 2010-5-28 14:51

我是要保留仓库号为101 。103 .104。 105 。202这个仓位的所有数据。其他的全部删除。该怎么写

lv2Swafq.rar (79.23 KB, 下载次数: 0)

开辆小富康 · 发表于 2010-5-28 15:03

Sub test()
Dim arr
arr = Range("A2:Ae" & Range("a65536").End(xlUp).Row)
ReDim arrnew(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
If arr(i, 1) = "101" Or arr(i, 1) = "103" Or arr(i, 1) = "104" Or arr(i, 1) = "105" Or arr(i, 1) = "202" Then
   K = K + 1
    For j = 1 To UBound(arr, 2)
     arrnew(K, j) = arr(i, j)
    Next j
End If
Next i
Range("A2").Resize(UBound(arr), UBound(arr, 2)) = arrnew
    Cells(K + 2, 1) = "合计"
For j = 13 To 31
    Cells(K + 2, j) = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(K + 1, j)))
Next j
End Sub

开辆小富康 · 发表于 2010-5-28 15:06

hTG74c5I.rar (106 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册

[已解决]那位高手 帮忙写个程序

[已解决]那位高手帮忙写个程序