[已解决]再求助一个问题

dfzc

详看附件，代码为什么不好用

Book1.zip (12 KB, 下载次数: 8)

2014-3-9 18:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sliang28

2014-3-9 18:47

这个意思?

1. Sub yy()
   
2.     Dim temp As Long
   
3.     Dim Irow As Long
   
4.         temp = Sheet1.Range("A14")
   
5.         With Sheet2
   
6.             Irow = .Range("K65536").End(3).Row
   
7.             If Irow > 1 Then Irow = Irow + 1
   
8.             .Range("K:K").ClearContents
   
9.             .Range("K" & Irow) = temp
   
10.         End With
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

sliang28

这个意思?

1. Sub yy()
   
2.     Dim temp As Long
   
3.     Dim Irow As Long
   
4.         temp = Sheet1.Range("A14")
   
5.         With Sheet2
   
6.             Irow = .Range("K65536").End(3).Row
   
7.             If Irow > 1 Then Irow = Irow + 1
   
8.             .Range("K:K").ClearContents
   
9.             .Range("K" & Irow) = temp
   
10.         End With
    
11. End Sub
    

复制代码

dfzc

谢谢高手，问题解决，辛苦了