[已解决]有关复制粘贴到事情（用VBA）

蓝色丹青

根据股票代码在《个股实时资金流向排行》表B列查询，查到后把整行复制到《查看个股资金变动》里面，我使用的是EXCEL2003

最佳答案

月排行榜 / 总排行榜

zjdh

2015-12-10 20:04

写错了一个字母。
Sub TEST()
    Sheets("查看个股资金变动").UsedRange.Offset(2, 0).ClearContents
    With Sheets("个股实时资金流向排行")
        ARR = .UsedRange
        For I = 8 To Range("H65536").End(3).Row
            For J = 3 To UBound(ARR)
                If ARR(J, 2) = Cells(I, "H") Then
                    S = S + 1
                    .Rows(J).Copy Sheets("查看个股资金变动").Cells(S + 2, 1)
                End If
            Next
        Next
    End With
    Sheets("查看个股资金变动").Select
End Sub

跳转到最佳答案楼层

zjdh

求助.rar (209.06 KB, 下载次数: 16)

2015-12-10 16:58 上传

点击文件名下载附件

蓝色丹青

zjdh 发表于 2015-12-10 16:58

不对，查询的与首页上的股票代码不一致

七彩屋

求助.rar (206.83 KB, 下载次数: 30)

2015-12-10 17:40 上传

点击文件名下载附件
修改zjdh老师的代码

zjdh

写错了一个字母。
Sub TEST()
    Sheets("查看个股资金变动").UsedRange.Offset(2, 0).ClearContents
    With Sheets("个股实时资金流向排行")
        ARR = .UsedRange
        For I = 8 To Range("H65536").End(3).Row
            For J = 3 To UBound(ARR)
                If ARR(J, 2) = Cells(I, "H") Then
                    S = S + 1
                    .Rows(J).Copy Sheets("查看个股资金变动").Cells(S + 2, 1)
                End If
            Next
        Next
    End With
    Sheets("查看个股资金变动").Select
End Sub