用vbs写在表格A列筛选大于0的数据，复制b列对应大于零的数据
可以使用VBA（Visual Basic for Applications）来实现在Excel表格中筛选大于0的数据，并复制对应的B列数据。以下是一个示例的VBA代码：
```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列。
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。