Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7140|回复: 13

[VBA] 用VBA实现循环粘贴多行数据

[复制链接]
发表于 2016-10-4 12:04 | 显示全部楼层 |阅读模式
用VBA实现循环粘贴多行数据

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-10-4 20:58 | 显示全部楼层
  1. Sub tt()
  2.     arr = [a1].CurrentRegion
  3.     For i = 0 To 59
  4.         Cells(i * UBound(arr) + 1, 6).Resize(UBound(arr), UBound(arr, 2)) = arr
  5.     Next
  6. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

发表于 2016-10-4 21:04 | 显示全部楼层
大神,看了你写的代码,我就想死!
算了,还是不要脸的贴出来算了
  1. Sub today() '循环粘贴
  2.     Dim arr, brr(), i&, j&, k&, e&
  3.     arr = Sheets("Sheet1").[a1].CurrentRegion
  4.     e = UBound(arr)
  5.     ReDim brr(1 To e * 60, 1 To UBound(arr, 2))
  6.     For i = 1 To e
  7.         For k = i To 60 * e Step e
  8.             For j = 1 To UBound(arr, 2)
  9.                 brr(k, j) = arr(i, j)
  10.             Next
  11.         Next
  12.     Next
  13.     Sheets("Sheet1").Columns("f:h").Clear
  14.     Sheets("Sheet1").[f1].Resize(e * 60, j - 1) = brr
  15. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

发表于 2016-10-4 21:28 | 显示全部楼层
你的不是很好吗,虽然代码看得长一点,但运行速度快。

评分

参与人数 1 +6 收起 理由
today0427 + 6 谢谢安慰!思路太死板怎么救,请指点!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-10-4 21:29 | 显示全部楼层
today0427 发表于 2016-10-4 21:04
大神,看了你写的代码,我就想死!
算了,还是不要脸的贴出来算了

Sub 循环拷贝()
Dim i As Integer
Dim arr As Variant
With Sheet1
arr = .Range("a1").CurrentRegion
For i = 1 To 60
.Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
Next i
End With
End Sub


回复

使用道具 举报

 楼主| 发表于 2016-10-4 21:30 | 显示全部楼层
today0427 发表于 2016-10-4 21:04
大神,看了你写的代码,我就想死!
算了,还是不要脸的贴出来算了

按你的办了
回复

使用道具 举报

 楼主| 发表于 2016-10-4 21:31 | 显示全部楼层

结果不是从第一行输出啊
回复

使用道具 举报

发表于 2016-10-4 21:33 | 显示全部楼层
你这个没老师那个好!
回复

使用道具 举报

发表于 2016-10-4 21:36 | 显示全部楼层

应该的应该的,学到真本事才是最重要的,我就希望能有大神一起答题, 比我自己在那儿写十个题都有帮助,这样进步才快呢!
回复

使用道具 举报

 楼主| 发表于 2016-10-4 21:39 | 显示全部楼层
本帖最后由 laoau138 于 2016-10-4 21:43 编辑
today0427 发表于 2016-10-4 21:36
应该的应该的,学到真本事才是最重要的,我就希望能有大神一起答题, 比我自己在那儿写十个题都有帮助, ...

用VBA把每列前5大数的单元格填充为红色


http://www.excelpx.com/thread-424861-1-1.html

用VBA实现垂直一相连和斜对角线  优化再优化


http://www.excelpx.com/thread-424862-1-1.html

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 23:58 , Processed in 0.666728 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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