选择性复制数据

kandhong88

老师：
     我请教的是问题是：选择性复制数据。
     思路如下：
     1.V4：XFD1003为数据区。
     2.当在设置区间输入2：6时，实现效果为：复制W4：AA1003区域数据。
     3.当在设置区间输入7：12时，实现效果为：复制AB4：AG1003区域数据。

     谢谢老师！
      选择性复制问题.rar (388.37 KB, 下载次数: 13)

2019-5-15 14:50 上传

点击文件名下载附件
     

大灰狼1976

1. Sub test()
   
2. Dim st&, en&
   
3. st = [g7] + 21: en = [j7] + 21
   
4. Range(Cells(4, st), Cells(1003, en)).Copy
   
5. End Sub

复制代码

hfwufanhf2006

那你还不如直接输入w4和aa1003来得直观，代码也容易写，最起码要输入w 和 aa。2和6的含义模糊，判断起来也困难。如果是输入w 和 aa 这种格式，复制代码就只有几行：
s1 = Cells(7, "g")
s2 = Cells(7, "j")
s = s1 & Cells(1, s1).End(4).Row & ":" & s2 & Cells(10000, s2).End(3).Row
Range(s).Copy [a30] '复制到a30单元格为起点的区域，根据需要自己修改

kandhong88

大灰狼1976 发表于 2019-5-15 20:23

大灰狼1976老师：
        您的VBA已收悉，完全正解，辛苦了！

nini11123

22222222