[已解决]求助

ruoyingkitty

如何通过函数方式，自动把项目属性列为往来属性的报表项目代码及名称拿到I,J列

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-1-23 15:23

下载下来了：答案附件 模板.rar (14.92 KB, 下载次数: 0)

2011-1-23 15:23 上传

点击文件名下载附件
试试这个代码
Sub 筛选()
    Dim Ro As Long
    Dim i As Long
    Dim st As Long
    Dim Rng(1 To 255) As Range
    [I3].Resize([A65536].End(xlUp).Row - 3, 2).Clear
    For Ro = 3 To [A65536].End(xlUp).Row
      If Cells(Ro, 4) = "往来" Then
      i = i + 1
      Set Rng(i) = Range("A" & Ro).Resize(1, 2)
      End If
    Next Ro
    For st = 2 To i
      Set Rng(1) = Union(Rng(1), Rng(st))
    Next st
    Rng(1).Copy Sheets("报表项目").[I3]
End Sub

跳转到最佳答案楼层

风尘子

按项目属性列排序后，复制不就可以嘛

sunjing-zxl

附件下不起啊

老糊涂

附件打不开

sunjing-zxl

下载下来了：答案附件 模板.rar (14.92 KB, 下载次数: 0)

2011-1-23 15:23 上传

点击文件名下载附件
试试这个代码
Sub 筛选()
    Dim Ro As Long
    Dim i As Long
    Dim st As Long
    Dim Rng(1 To 255) As Range
    [I3].Resize([A65536].End(xlUp).Row - 3, 2).Clear
    For Ro = 3 To [A65536].End(xlUp).Row
      If Cells(Ro, 4) = "往来" Then
      i = i + 1
      Set Rng(i) = Range("A" & Ro).Resize(1, 2)
      End If
    Next Ro
    For st = 2 To i
      Set Rng(1) = Union(Rng(1), Rng(st))
    Next st
    Rng(1).Copy Sheets("报表项目").[I3]
End Sub