VBA学习心得二:关于复制黏贴

Public Sub 复制黏贴()
   '[e2]代表开始要复制的单元格,[e2].End(xlDown)代表从e2单元格到非空单元格e8,k2代表要复制到的单元格,会黏贴格式,背景色是白色。
  Range([e2], [e2].End(xlDown)).Copy [k2]
    '如果要复制非连续的数据,比如e2到e13,可以用UsedRange,来确定当前单元格使用的行数a,复制到m2单元格,不带格式,只是值,不会影响背景颜色,如果需要格式可以通过上面方法来复制黏贴   a = Worksheets(1).UsedRange.Rows.Count  Range("m2", "m" & a).Value = Range("e2", "e" & a).Value End Sub