[已解决]VBA 数据复制黏贴

大块头咣当

求VBA 代码
工作中，一些数据需要实时更新，然后按照天保存
之后需要计算每天的平均值之类的

那么问题来了
现在在sheet 1中有A1 A2 A3 A4几个单元格
按键之后复制到sheet 2 的A1 A2 A3 A4几个单元格中
如果A1 A2 A3 A4中已经有数据了
则自动黏贴到B1 B2 B3 B4中，以此类推

求大神帮助

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-21 20:16

1. Sub demo()
   
2.     Dim a As Long, arr
   
3.     a = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
   
4.     b = Sheets("sheet2").Cells(1, Columns.Count).End(1).Column + 1
   
5.     arr = Sheets("sheet1").Range("a1:a" & a)
   
6.     If Sheets("sheet2").Range("a1") = "" Then
   
7.         Sheets("sheet2").Cells(1, 1).Resize(a, 1) = arr
   
8.     Else
   
9.         Sheets("sheet2").Cells(1, b).Resize(a, 1) = arr
   
10.     End If
    
11. End Sub
    

复制代码

楼主试试
工作簿1.rar (15.71 KB, 下载次数: 9)

2014-10-21 20:16 上传

点击文件名下载附件

跳转到最佳答案楼层

su45

Book1.zip (6.91 KB, 下载次数: 2)

2014-10-21 19:45 上传

点击文件名下载附件

qh8600

1. Sub demo()
   
2.     Dim a As Long, arr
   
3.     a = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
   
4.     b = Sheets("sheet2").Cells(1, Columns.Count).End(1).Column + 1
   
5.     arr = Sheets("sheet1").Range("a1:a" & a)
   
6.     If Sheets("sheet2").Range("a1") = "" Then
   
7.         Sheets("sheet2").Cells(1, 1).Resize(a, 1) = arr
   
8.     Else
   
9.         Sheets("sheet2").Cells(1, b).Resize(a, 1) = arr
   
10.     End If
    
11. End Sub
    

复制代码

楼主试试
工作簿1.rar (15.71 KB, 下载次数: 9)

2014-10-21 20:16 上传

点击文件名下载附件

大块头咣当

su45 发表于 2014-10-21 19:45

非常感谢
再请问一下两个问题
1.如果需要选择性黏贴的效果，怎么弄
2.黏贴的位置需要从Sheet 2的B2起始，怎么弄
{:091:}

su45

要粘贴数值，就用3楼的代码，从B2开始，就用 Ceels(2,2)

大块头咣当

qh8600 发表于 2014-10-21 20:16
楼主试试

前几天有事，今天才看到，已经好了，非常感谢