好的，您可以使用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即可打开），然后保存并运行该宏即可实现您的需求。