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

ID19920103

kankan

wangyundlut

来看答案，谢谢！

flyingring1016

zyingqiao

学习了

wf562748385

看看第二题的答案

wf562748385

第一题答案
Sub t1()
With Range("c4").CurrentRegion
[a11] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1) _
.Address(0, 0)
End With
End Sub
第二题答案
Sub t2()
With Range("c4").CurrentRegion
[f3].Comment.Shape.Left = .Left + .Width
End With
End Sub

卢卡卢卡卢卡斯

Sub exe()
With Range("C4").CurrentRegion
[c14] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1).Address(0, 0)
End With
End Sub

Sub mov()
Range("F3").Comment.Shape.Left = Range("d3").Left + Range("d3").Width
End Sub

Get一点

Mark一下，13讲

aaaguoshuai

兰版好厉害

荷塘月色沙子

学习的好地方，谢谢各位老师。