在最后一列最后面插入一列(比如z列)
在z列Z1输入公式 = OR(ISNUMBER(FIND("字",A1:Y1))) Ctrl + shift + 回车
向下复制公式
条件列就做好了
然后选择所有数据的所有行
筛选出Z列是 true的列
然后 CTRL+ G 定位 所有可见行
然后CTRL + C 复制
然后 到其他表格CTRL +V 黏贴
OK 搞定
执行如下VBA程序,可以选中含“字”的行:
Sub try()
Dim rag As Range, rags As Range
Set rags = Nothing
For Each rag In UsedRange
If InStr(rag.Value, "字") > 0 Then
If rags Is Nothing Then
Set rags = rag.EntireRow
Else
Set rags = Union(rags, rag.EntireRow)
End If
End If
Next
rags.Select
End Sub
按Ctrl+C
选定要粘贴位置的起始行
按Ctrl+V
你的问题都好难理解。