两个工作表之间数据复制问题

kandhong88

老师：
     两个工作表之间数据复制问题。
     思路如下：
     1、"数据库"中有数据。
     2、当AA13=1时，自动将"数据库"中B2:F15的数据复制取"显示区"M3:Q16中。
     3、当AA13=2时，自动将"数据库"中G2:K15的数据复制取"显示区"M3:Q16中。
     4、当AA13=3时，自动将"数据库"中L2:P15的数据复制取"显示区"M3:Q16中。
       两工作表之间数据复制问题.zip (9.4 KB, 下载次数: 3)

2018-10-14 19:32 上传

点击文件名下载附件

      

lsc900707

附件是空的吧？检查一下看看。

719404338

1. Sub t()
   
2. Select Case [aa13]
   
3. Case Is = 1
   
4.    Sheet2.Activate
   
5.    [b2:f15].Copy Sheet2.Range("m3:q16")
   
6. Case Is = 2
   
7.    Sheet2.Activate
   
8.    [b2:f15].Copy Sheet2.Range("m3:q16")
   
9. Case Is = 3
   
10.    Sheet2.Activate
    
11.    [b2:f15].Copy Sheet2.Range("m3:q16")
    
12. End Select
    
13. End Sub
    

复制代码

kandhong88

719404338老师：
       你提供的代码已收悉，代码不能执行，请老师指点！

lsc900707

1. Sub copyabc()
   
2.     Select Case [aa13]
   
3.     Case "1"
   
4.         Sheet2.[b2:f15].Copy [m3]
   
5.     Case "2"
   
6.         Sheet2.[g2:k15].Copy [m3]
   
7.     Case "3"
   
8.         Sheet2.[l2:p15].Copy [m3]
   
9.     Case Else
   
10.         Exit Sub
    
11.     End Select
    
12. End Sub

复制代码

lsc900707

附件供测试参考：

719404338

kandhong88 发表于 2018-10-14 19:39
719404338老师：
       你提供的代码已收悉，代码不能执行，请老师指点！

我的电脑上可以执行。

kandhong88

lsc900707 发表于 2018-10-14 20:20
附件供测试参考：

lsc900707老师：
       您的VBA已收悉，正确！