[已解决]求助：数据复制问题

kandhong

老师：
       我想请教的问题是：数据复制问题。
具体思路如下：
       ①点击B按键，将A列中数据复制到C列;
       ②再一次点击B按键，C列中数据清除。

          再一次感谢老师！！！
   

数据复制问题.rar (10.33 KB, 下载次数: 3)

2012-5-31 15:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-5-31 22:31

1. Dim k As Byte
   
2. Sub a()
   
3.     If k = 1 Then
   
4.         Range("c:c").ClearContents
   
5.         k = 0
   
6.     Else
   
7.         Range("c:c").NumberFormatLocal = "@"
   
8.         Range("c:c").Value = Range("a:a").Value
   
9.         k = k + 1
   
10.     End If
    
11. End Sub

复制代码

你的附件有病毒　

跳转到最佳答案楼层

笨妖儿

这 个 是 宏 吧？

zjcat35

1. Dim k As Byte
   
2. Sub a()
   
3.     If k = 1 Then
   
4.         Range("c:c").ClearContents
   
5.         k = 0
   
6.     Else
   
7.         Range("c:c").NumberFormatLocal = "@"
   
8.         Range("c:c").Value = Range("a:a").Value
   
9.         k = k + 1
   
10.     End If
    
11. End Sub

复制代码

你的附件有病毒