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

 
 
 
日一二三四五六
       
       
       
       
       
       

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

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

本吧签到人数:0

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

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

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

求大神指点,寻思了很久了!酬谢!急急急!

  • 只看楼主
  • 收藏

  • 回复
  • edwinfufu
  • 平E近人
    2
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
请问如何用公式函数或者VB等应用可以方便COPY数据到SHEET1 中,谢谢!



需要把记录员在表中的数据COPY到 SHEET1 中,这些都是做出来的数据,实际数量是很长的,起码要几百行、每天。

SHEET1 表中的数据每日都会汇总,但不会删除,

每当数据量大时,还会增加人手的,除了第一个SHEET1的数据不会删除外,后面SHEET的数据每天都会 删除掉的!
求大神指点,寻思了很久了!谢谢!
我QQ: 370048440
wechat: edwinfufu
酬谢!
谢谢!


  • zipall
  • 吧主
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
运行下面的宏
Sub 汇总()
For i = 2 To Worksheets.Count'从第2开始到最后一个工作表
With Worksheets(i).UsedRange
.Copy Worksheets(1).Range("b65536").End(xlUp).Offset(1, -1)'将表i中的所有内容复制到第1个工作表
.ClearContents'清除表i的内容
End With
Next
End Sub


2026-01-02 13:30:31
广告
不感兴趣
开通SVIP免广告
  • edwinfufu
  • 平E近人
    2
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
先谢了!试试先!


登录百度账号

扫二维码下载贴吧客户端

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