[已解决]求助如何用VBA根据U列显示正常，提取绿色部分的资料到失业保险金发放表中

qinhuan66 · 发表于 2014-8-14 10:43

求助如何用VBA根据U列显示正常，提取绿色部分的资料到失业保险金发放表中。谢谢
注：显示提取停发的不用提取。

求助.rar (21.75 KB, 下载次数: 6)

易安1 · 发表于 2014-8-14 11:42

本帖最后由易安1 于 2014-8-14 15:24 编辑

Sub test()
Dim brr, arr(1 To 100000, 1 To 5)
k = 1
brr = Sheet1.[a1].CurrentRegion
For i = 3 To UBound(brr)
If brr(i, 21) = "正常" Then
arr(k, 1) = brr(i, 3)
arr(k, 2) = brr(i, 4)
arr(k, 3) = brr(i, 19)
arr(k, 4) = brr(i, 20)
arr(k, 5) = brr(i, 21)
k = k + 1
End If
Next
Sheet3.[b4].Resize(k, 5) = arr
End Sub

复制代码

zjdh · 发表于 2014-8-14 13:37

本帖最后由 zjdh 于 2014-8-14 15:32 编辑

Sub TEST2()
arr = Sheets("2014年7月").[a1].CurrentRegion
W = 3
With Sheets("失业保险金发放表")
      For I = 3 To UBound(arr)
         If arr(I, 21) = "正常" Then
            J = J + 1
            .Cells(W + J, 2) = arr(I, 3)
            .Cells(W + J, 3) = arr(I, 4)
            .Cells(W + J, 4) = arr(I, 19)
            .Cells(W + J, 5) = arr(I, 20)
            .Cells(W + J, 6) = arr(I, 21)
         End If
         If J = 25 Then
            J = 0: W = W + 28
         End If
      Next
End With
End Sub

qinhuan66 · 发表于 2014-8-14 15:08

易安1 发表于 2014-8-14 11:42

好像不行哦.

易安1 · 发表于 2014-8-14 15:12

qinhuan66 发表于 2014-8-14 15:08
好像不行哦.

结果直接是一起的没有分一个一个表什么小计呀考虑了就繁琐了

易安1 · 发表于 2014-8-14 15:25

上面代码更新了，好像忘了复制了一部分一开始

zjdh · 发表于 2014-8-14 15:27

附件重传

求助2.rar (28.57 KB, 下载次数: 14)

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

[已解决]求助如何用VBA根据U列显示正常，提取绿色部分的资料到失业保险金发放表中

评分

评分