Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 160|回复: 19

[求助] 求高手帮忙一下,如果我要将一行的数据提取到另一个模板,应该怎么做,急,在线等,谢

[复制链接]
发表于 2017-8-6 18:52 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
本帖最后由 ma51267 于 2017-8-6 19:33 编辑

就是希望将一行数据提取到一个已有格式的模板,麻烦各位高手帮忙,在线等,急,标黄色的是希望每输入一次数据,就能自动替换,或者直接生成一个新的SHEET,谢谢

ABSLimited.rar

11.49 KB, 下载次数: 5

发表于 2017-8-6 19:00 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-8-6 19:03 | 显示全部楼层
不好意思,附件现在放,麻烦你帮忙看看,挺急的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-8-6 19:05 | 显示全部楼层
qqyyh 发表于 2017-8-6 19:00
什么都没有,你急有用吗?

不好意思,附件现在放,麻烦你帮忙看看,挺急的
回复 支持 反对

使用道具 举报

发表于 2017-8-6 19:15 | 显示全部楼层
你要告诉别人你的要求是什么?sheet1只固定一行数据吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-8-6 19:32 | 显示全部楼层
qqyyh 发表于 2017-8-6 19:15
你要告诉别人你的要求是什么?sheet1只固定一行数据吗?

是的,固定只有一行,因为第一次发帖,不知道还有什么需要提供~,麻烦指教一下
回复 支持 反对

使用道具 举报

发表于 2017-8-6 20:50 | 显示全部楼层
ma51267 发表于 2017-8-6 19:32
是的,固定只有一行,因为第一次发帖,不知道还有什么需要提供~,麻烦指教一下

大致做了下,目测还有后续需求,比如新生成的工作表如何命名等。。。
  1. Sub test()
  2.     Dim ar
  3.     Dim i As Long
  4.     Application.ScreenUpdating = False
  5.     ar = Sheets(2).Cells(1, 1).CurrentRegion
  6.     For i = 2 To UBound(ar)
  7.         Sheets(1).Copy , Sheets(Sheets.Count)
  8.         With ActiveSheet
  9.             .Cells(9, 2) = ar(i, 4)
  10.             .Cells(9, 9) = "bsdq955" & ar(i, 1)
  11.             .Cells(14, 3) = ar(i, 8)
  12.             .Cells(14, 9) = ar(i, 3)
  13.             .Cells(25, 1) = Split(ar(i, 5), Chr(10))(0)
  14.             .Cells(26, 1) = Split(ar(i, 5), Chr(10))(1)
  15.             .Cells(25, 9) = Split(ar(i, 6), Chr(10))(0)
  16.             .Cells(26, 9) = Split(ar(i, 6), Chr(10))(1)
  17.         End With
  18.     Next i
  19.     Application.ScreenUpdating = True
  20. End Sub
复制代码


回复 支持 反对

使用道具 举报

发表于 2017-8-6 21:12 | 显示全部楼层
ABSLimited.rar (14.29 KB, 下载次数: 2)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-8-6 21:14 | 显示全部楼层
windyjw007 发表于 2017-8-6 20:50
大致做了下,目测还有后续需求,比如新生成的工作表如何命名等。。。

首先谢谢你的解答,但我想问如果我要从一个SHEET过到另外一个SHEET应该怎么做,因为毕竟数据不在同一个工作表

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-8-6 21:18 | 显示全部楼层

不好意思,没看到修改在哪?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-8-23 08:47 , Processed in 0.093600 second(s), 25 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表