好的，您可以使用VBS（Visual Basic Script）编写以下代码来筛选表格A列大于0的数据，并复制B列对应的数据：
```vbscript
Option Explicit
Sub FilterData()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
' 设置要操作的工作表
Set ws = ThisWorkbook.Sheets("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
```
您只需将上述代码复制到Excel文件的VBA编辑器中（按下Alt+F11即可打开），然后保存并运行该宏即可实现您的需求。
本网转载内容版权归原作者和授权发表网站所有，仅供学习交流之用，如有涉及版权问题，请通知我们尽快处理。