[已解决]怎么用代码实现？

sdfsdfs · 发表于 2013-9-23 23:14

本帖最后由 sdfsdfs 于 2013-10-20 09:28 编辑

点击按钮h列数据粘贴到e3，h列数据能不能自动下移，现在想让e列的最后一行和h列的第一行之间自动空个两行？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-24 06:44

附件2.rar (20.88 KB, 下载次数: 31)

美斯特邦威 · 发表于 2013-9-24 00:10

Private Sub CommandButton1_Click()
pp = Range("h17:h40").Value
Range("e3").Resize(UBound(pp) + 2).Insert Shift:=xlDown
Range("e3").Resize(UBound(pp)) = pp
End Sub

复制代码

没看懂想要做什么
猜个试试

w2001pf · 发表于 2013-9-24 00:15

看看这个吧？Sub 复制()
rowend = Range("H" & Rows.Count).End(xlUp).Row
arr = Range("H17:H" & rowend)
Range("E3").Resize(UBound(arr)) = arr
rowend = Range("E" & Rows.Count).End(xlUp).Row
Range("H:H") = ""
Range("H" & rowend + 3).Resize(UBound(arr)) = arr
End Sub

ppp710715 · 发表于 2013-9-24 06:44

本帖最后由 ppp710715 于 2013-9-24 06:50 编辑

Private Sub CommandButton1_Click()
Dim i, k
Dim arr
i = [h1].End(4).Row
arr = Range("h" & i).CurrentRegion
[e3].Resize(UBound(arr)) = arr
k = [e65536].End(3).Row
[h:h].Clear
Range("h" & k + 3).Resize(UBound(arr)) = arr
MsgBox "共移动了" & UBound(arr) & "行数据！"
End Sub

复制代码

yyyydddd8888 · 发表于 2013-9-24 06:44

这个最佳答案由 yyyydddd8888 给出，感谢 yyyydddd8888 的回答。

单击隐藏图章

附件2.rar (20.88 KB, 下载次数: 31)

sdfsdfs · 发表于 2013-9-30 22:06

yyyydddd8888 发表于 2013-9-24 06:44
看看是不是你想要的

选文件太慢，有没有别的方法，比如从文件里找规律

yyyydddd8888 · 发表于 2013-10-1 08:54

sdfsdfs 发表于 2013-9-30 22:06
选文件太慢，有没有别的方法，比如从文件里找规律

那你的文件名就应该设置成有规律的才行。

sdfsdfs · 发表于 2013-10-1 09:39

本帖最后由 sdfsdfs 于 2013-10-4 20:37 编辑

yyyydddd8888 发表于 2013-10-1 08:54
那你的文件名就应该设置成有规律的才行。

这个规律行不行？

yyyydddd8888 · 发表于 2013-10-1 09:41

sdfsdfs 发表于 2013-10-1 09:39
规律是文件名最后面有日期，每天工作簿文件名2013-9-30-8，2013-9-30-16，2013-9-30-24，就这样循环，按日 ...

我试试看。

sdfsdfs · 发表于 2013-10-1 09:41

yyyydddd8888 发表于 2013-10-1 09:41
我试试看。

写好评个最佳

		自动登录	找回密码
密码			注册