怎样自动复制列到用日期命名的sheet工作簿中

the_oldcat

每天需要做报表，然后想通过宏命令一步将其中几列贴入按日期命名的工作簿中，PS只是为了说明问题样本较为简单，实际情况还要繁琐，所以想用VBA一次来解决。

yayahzmeng

那还需要做啥VBA啊，每天流水号结束后，将该表名重命名为某天不久可以啦
第二天再新建个新表开始新的流水号嘛

the_oldcat

我就知道有人会这么回    我求助的后半段你没仔细看么  实际情况复杂的多    实际情况是我要把数据分解成4-5个表并分贴到几个工作簿内  要在半个小时内做完   数据分解和汇总的工作都用VBA完成了  但是分贴到不同日期这里给卡主了    有你想象的那么简单我也不要求助了

yayahzmeng

1. Sub 导入()
   
2.     Application.ScreenUpdating = False
   
3.     Dim arr, brr, crr, sh
   
4.     arr = Range("a1:a" & [a1].End(4).Row)
   
5.     brr = Range("b1:b" & [a1].End(4).Row)
   
6.     crr = Range("e1:e" & [a1].End(4).Row)
   
7.     sh = Application.InputBox("需要导入到哪一天？", "目标", , , , , , 1)
   
8.     If sh <> False Then
   
9.         For i = 1 To Sheets.Count
   
10.             If Sheets(i).Name = sh & "日" Then
    
11.                 Exit For
    
12.             Else
    
13.                 Sheets.Add.Name = sh & "日": Exit For
    
14.             End If
    
15.         Next
    
16.         With Sheets(sh & "日")
    
17.             .[a1].Resize(UBound(arr), 1) = arr
    
18.             .[b1].Resize(UBound(brr), 1) = brr
    
19.             .[c1].Resize(UBound(crr), 1) = crr
    
20.         End With
    
21.     End If
    
22.     Application.ScreenUpdating = True
    
23. End Sub

复制代码