把数据复制到指定条件的列下

sakura9547

求大神解答
比如说日报表“3月24日”那一列，想要复制到总表的“3月24日”那一列下。请不要说用什么等于或者用什么函数。因为这个日报表只有一天的数据，附件只是举个例子。 这个就相当于有条件的复制。 新建 Microsoft Excel 工作表.zip (9.2 KB, 下载次数: 4)

2018-3-27 22:01 上传

点击文件名下载附件

日报表的日期每天都在变动， 相当于在日报表找到日期。然后再在总表找到对应的日期，然后复制数据过去

yangyangde22

Sub 复制()
c1 = Sheets(1).Cells(2, Columns.Count).End(1).Column
c2 = Sheets(2).Cells(2, Columns.Count).End(1).Column
For i = 2 To c1
For j = 2 To c2
If Sheets(1).Cells(2, i) = Sheets(2).Cells(2, j) Then
r1 = Sheets(1).Cells(Rows.Count, i).End(3).Row
r2 = Split(Cells(3, i).Address, "$")(1)
Sheets(1).Range(r2 & "3:" & r2 & r1).Copy Sheets(2).Cells(3, j)
End If
Next
Next
End Sub

sakura9547

谢谢大神解答  

sakura9547

yangyangde22 发表于 2018-3-27 23:13
Sub 复制()
c1 = Sheets(1).Cells(2, Columns.Count).End(1).Column
c2 = Sheets(2).Cells(2, Columns.Co ...

数据在第几列其实是确定的
我比较笨啊 如果  把报表 改成这样呢 就一个日期 新建 Microsoft Excel 工作表.zip (15.78 KB, 下载次数: 8)

2018-3-28 07:54 上传

点击文件名下载附件

yangyangde22

用前面那个也是一样的
Sub 复制()
c = Sheets(2).Cells(2, Columns.Count).End(1).Column
For j = 2 To c
If Sheets(1).[b2] = Sheets(2).Cells(2, j) Then
r = Sheets(1).Cells(Rows.Count, 2).End(3).Row
Sheets(1).Range("b3:b" & r).Copy Sheets(2).Cells(3, j)
End If
Next
End Sub

lsc900707

sakura9547 发表于 2018-3-28 07:55
数据在第几列其实是确定的
我比较笨啊 如果  把报表 改成这样呢 就一个日期

1. Sub gj23w98()
   
2.     rq = [b2]: arr = Range("b3:b" & Rows.Count)
   
3.     With Sheets("总表")
   
4.          For j = 2 To .[b2].End(2).Column
   
5.              If Not .Cells(2, j).Find(rq, , , 1) Is Nothing Then
   
6.                  .Cells(3, j).Resize(UBound(arr)) = arr
   
7.              End If
   
8.          Next
   
9.     End With
   
10. End Sub
    

复制代码

lsc900707

sakura9547 发表于 2018-3-28 07:55
数据在第几列其实是确定的
我比较笨啊 如果  把报表 改成这样呢 就一个日期

附件供参考：

sakura9547

lsc900707 发表于 2018-3-28 17:48
附件供参考：

也谢谢这位兄弟