用vbs写在表格A列筛选大于0的数据，复制b列对应大于零的数据

发表于：2023-08-03 9023次阅读来源：金宣助手

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

AI智能问答网免责声明：
本内容由ChatGPT3.0生成，可能存在逻辑不清、乱码等问题，点这里>>使用AI高级版(GPT4.0)，更聪明、更完整、无乱码！
以上内容除特别注明外均来源于网友提问、ChatGPT回答，权益归原著者所有，本站仅作效果演示和欣赏之用；

用vbs写在表格A列筛选大于0的数据，复制b列对应大于零的数据

【顶部】【打印】【关闭】

热门资讯

服务

关于

官网微信公众号

联系我们

用vbs写在表格A列筛选大于0的数据，复制b列对应大于零的数据

【顶部】 【打印】 【关闭】

热门资讯

服务

关于

官网微信公众号

联系我们

【顶部】【打印】【关闭】