[已解决]奢求复制数字，颜色，单元格颜色，连续复制的代码？

老鸭子

保存表内有说明

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-4 13:43

1. Private Sub CommandButton1_Click()
   
2. Sheets("保存").Select
   
3.     ROW1 = Sheets("保存").Range("H65536").End(xlUp).Row
   
4.     If ROW1 > 3 Then ROW1 = ROW1 + 5
   
5.     Sheet1.Range("H2:V500").SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("C" & ROW1 + 1)
   
6. End Sub

复制代码

跳转到最佳答案楼层

mxg825

1. Private Sub CommandButton1_Click()
   
2. Sheets("保存").Select
   
3.     ROW1 = Sheets("保存").Range("H65536").End(xlUp).Row
   
4.     If ROW1 > 3 Then ROW1 = ROW1 + 5
   
5.     Sheet1.Range("H2:V500").SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("C" & ROW1 + 1)
   
6. End Sub

复制代码