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

daijinlong

看看答案

13816948298

谢谢

daze111

VBA2020

1

Fargo777

学习一下~

呆呆鱼的天空

学习

scythekid

看看答案

zhangfz1982

学习一下

思雪遥遥

Sub tx()
Dim rg As Range
Set rg = Range("c4").CurrentRegion
[a1] = .Cells(rg.Rows.Count, rg.Columns.Count).Address(0, 0)
End Sub

quanlai4984

Sub t1()
Dim i As Byte, j As Byte
i = Range("c4").CurrentRegion.Rows.Count
j = Range("c4").CurrentRegion.Columns.Count
MsgBox Range("c4").CurrentRegion.Range("a1").Offset(i - 1, j - 1).Address(0, 0)
End Sub


Sub t2()
Dim i As Single, j As Single
With Range("d3")
    i = .Left + .Width
    j = .Top
End With

    Range("f3").Comment.Shape.Left = i
    Range("f3").Comment.Shape.Top = j

End Sub