VBA篩選出B列内容是F/T六軸機械手的整行複製到另一個sheet中
时间: 2023-12-10 20:42:13 浏览: 106
这是一个IT类问题。你可以使用Excel VBA代码来实现该操作。以下是一个简单的示例代码:
```
Sub FilterCopy()
Dim wsSource As Worksheet, wsTarget As Worksheet
Dim lastRow As Long, i As Long
'设置源表和目标表
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsTarget = ThisWorkbook.Sheets("Sheet2")
'获取源表的最后一行
lastRow = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
'循环遍历源表,筛选出符合条件的行并复制到目标表
For i = 2 To lastRow '假设第一行是标题行,从第二行开始
If wsSource.Cells(i, "B").Value = "F/T六軸機械手" Then
wsSource.Rows(i).Copy wsTarget.Rows(wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row + 1)
End If
Next i
End Sub
```
以上代码假设源表名为“Sheet1”,目标表名为“Sheet2”,并且需要复制的是整行数据。如果只需要复制B列的值,可以将最后一行的代码修改为`wsSource.Range("B" & i).Copy wsTarget.Range("B" & wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row + 1)`。
阅读全文