网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月31日漏签0天
excel吧 关注:281,425贴子:1,550,643
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 11回复贴,共1页
<<返回excel吧
>0< 加载中...

大佬们,这个EXCEL工作簿查找全部之后 能批量复制出来所在行吗

  • 只看楼主
  • 收藏

  • 回复
  • 可问春风
  • E手遮天
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
大佬们,这个EXCEL工作簿查找全部之后 能批量复制出来所在行吗。。 如图,一个文件总共30个表,其中有13个表查到该项。。。。我想把这13个不同表里的 该项所在行 一下复制出来 。。能实现吗 谢谢大佬


  • zipall
  • 吧主
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
没有直接的办法.
需要vba或pq


2025-07-31 12:54:26
广告
不感兴趣
开通SVIP免广告
  • 烟雨江南ooo
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Vba倒也简单,先问一下ai,然后修改一下


  • 烟雨江南ooo
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
以下是使用VBA代码来实现你所描述的功能,即遍历本工作簿下所有工作表的C列,一旦发现包含指定字符,就将本行数据复制到名为“查找值”的工作表中。你可以按照以下步骤操作:
1.打开你的Excel工作簿。
2.按下 Alt + F11 组合键,打开VBA编辑器。
3.在VBA编辑器中,插入一个新的模块(在菜单栏中选择“插入” -> “模块”)。
4.将以下代码粘贴到新模块中:
vba
Sub CopyRowsWithSpecifiedCharacter()
Dim ws As Worksheet
Dim targetWs As Worksheet
Dim lastRow As Long
Dim i As Long
Dim j As Long
Dim findChar As String
findChar = "你要查找的指定字符" '请将这里替换为你实际要查找的字符或字符串
On Error Resume Next
Set targetWs = ThisWorkbook.Worksheets("查找值")
If targetWs Is Nothing Then
Set targetWs = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
网页链接 = "查找值"
End If
On Error GoTo 0
For Each ws In 网页链接 lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
For i = 1 To lastRow
If InStr(1, ws.Cells(i, 3).Value, findChar) > 0 Then
ws.Rows(i).Copy Destination:=targetWs.Rows(targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Row + 1)
End If
Next i
Next ws
End Sub
5.将代码中的 "你要查找的指定字符" 替换为你实际要查找的字符或字符串。
6.关闭VBA编辑器,回到Excel工作表界面。
7.按下 Alt + F8 组合键,选择 CopyRowsWithSpecifiedCharacter 宏,然后点击“运行”按钮,宏将执行并完成你所要求的操作。
希望这段代码能帮助你解决问题。如果有任何疑问,请随时提问。


  • lvcha青青
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
提供一个思路
先在这个查找结果框里按CTRL+A,全选所有查找到的结果,关闭查找框后,鼠标不要点任何单元格,在开始选项卡改变字体颜色(改单元格颜色也可以),然后,右键改变颜色的单元格,排序--将所选字体颜色放在最前面(或将所选单元格颜色放在最前面),如果涉及到标题单元格的,可以选择自定义排序,排序依据为字体颜色或单元格颜色,这些被查找到的结果就集合在一起了,如此可以选中这些行进行复制粘贴。


  • yky洋洋
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
像这样做表=累死牛马


  • 可问春风
  • E手遮天
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
放弃了。。合并成一个表,筛选 复制了。。。。感谢大佬们


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 11回复贴,共1页
<<返回excel吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示