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

eling5476

谢谢，让我参考一下答案

ysh01

1. Sub d1()
   
2. Dim rg As Range
   
3. Set rg = [c4].CurrentRegion
   
4. Range("a2") = rg.Cells(rg.Count).Address(0, 0)
   
5. End SubSub d2()
   
6. Range("f3").Comment.Shape.Left = Range("d1").Left + Range("d1").Width
   
7. End Sub

复制代码

重庆小伙

我也来看下  11111111111111

daveman

Range("c3").CurrentRegion.Rows + Range("c3").CurrentRegion.Row - 1

fefe0929

一定向学的好的同学学习！

qdzhxg

第三集联系题答案，上传，求点评

rebornxldeng

交自己的...看大家的...虽然已经很晚了

baicel21314

来学习了哦，刚看完教程，不太会

karenwyj617

兰版辛苦了！！！！！！！！！！！！

hwc2ycy

1. 
   
2. Sub 练习1()
   
3.     MsgBox Range("c4").CurrentRegion.End(xlToRight).End(xlDown).Address(False, False)
   
4. End Sub
   
5. 
   
6. Sub 练习2()
   
7.     Cells.SpecialCells(xlCellTypeComments).Comment.Shape.Left = Range("d:d").Left + Range("d:d").Width
   
8. End Sub
   

复制代码