excel编程会的看下

来源：百度知道 编辑：UC知道 时间：2024/06/23 18:30:23
比如说我想把一列中所有含有“Static”字符的内容的行单独复制出来，怎么实现？ 谢谢

比如下面的一列：
Static lan3 172.16.1.171 0002:3fa8:7ecd
# 评估所 张 鹤
Static lan3 172.16.1.172 0010:5cd8:e054
# 评估所 傅 华
Static lan3 172.16.1.173 0010:5cb3:8a88

假定你的数据在A列，自A1起，中间无空行。
用如下代码：
Private Sub CommandButton1_Click()
i% = 1
For Each x In Range("A:A")
If x.Value = "" Then Exit For
If InStr(x.Value, "Static") > 0 Then
Range("B" & i%).Value = x.Value
i% = i% + 1
End If
Next
End Sub

for each x in range()
x.activecell
If ActiveCell.Value = Static then
ActiveCell.EntireRow.Copy range()
end if
next

需要编程么？
筛选就好象可以实现了吧。