可以使用VBA（Visual Basic for Applications）来实现在Excel表格中筛选大于0的数据，并复制对应的B列数据。以下是一个示例的VBA代码：

Sub 筛选并复制数据()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要操作的工作表名称
    
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历A列的数据
    For i = 1 To lastRow
        ' 判断A列的值是否大于0
        If ws.Cells(i, "A").Value > 0 Then
            ' 如果大于0，则复制对应的B列数据到C列
            ws.Cells(i, "B").Copy ws.Cells(i, "C")
        End If
    Next i
End Sub

请按照以下步骤使用上述代码：

1. 打开Excel文件，按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块（如果没有）。
3. 将上述代码复制粘贴到新的模块中。
4. 修改代码中的工作表名称（如果需要）。
5. 按下F5运行代码。

这样，代码将会在指定的工作表中筛选出大于0的数据，并将对应的B列数据复制到C列。