VBA80第13集练习题上交专贴：单元格信息返回

zkj1788

1. Sub tiyi()
   
2.     Range("c3").End(xlToRight).End(xlDown).Select
   
3.     [K3] = Selection.Address
   
4. End Sub
   
5. 
   
6. Sub tier()
   
7.     Range("f3").Comment.Shape.Left = Range("e3").Left
   
8. End Sub

复制代码

zkj1788

我要交作业

1. Sub tiyi()
   
2.     Range("c3").End(xlToRight).End(xlDown).Select
   
3.     [K3] = Selection.Address
   
4. End Sub
   
5. 
   
6. Sub tier()
   
7.     Range("f3").Comment.Shape.Left = Range("e3").Left
   
8. End Sub

复制代码

cxb373310445

Sub zy1()
      With Range("c4").CurrentRegion

        [a13] = .Range("b8").Address(0, 0)
      End With
    End Sub

markbj

回复

Grace7777

参考大神

lzdno4

学习

song1046

canteralla

学习了，感谢分享

温成芳

入江正一

很好