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

糖醋里脊028

糖醋里脊028

Sub t1()
Dim x As Integer, y As Integer, m As Integer, n As Integer
With Range("c4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
m = .Rows.Count
n = .Columns.Count
[a1] = Range("a1").Offset(x + m - 1, y + n - 1).Address
End With

End Sub

Sub t2()
Range("f3").Comment.Shape.Left = Range("e1").Left
End Sub

tpp

看看到案

tpp

Sub t1()
Dim str As String
Dim i, k As Integer
Dim rng As Range
    With Range("D4").CurrentRegion
        i = .Rows.Count - 1
        k = .Columns.Count - 1
        Set rng = .Range("A1").Offset(i, k)
    End With
    str = rng.Address(0, 0)
    Debug.Print str
End Sub

33级

看答案

Excalibur33

1

我是雨花石

Sub test()
    Dim x, y As Integer
     x = Range("c65535").End(xlUp).Row
     y = Range("z3").End(xlToLeft).Column
     MsgBox Cells(x, y).Address(0, 0)
End Sub

Sub test2()
    Range("f3").Comment.Shape.Left = Range("d3").Width + Range("d1").Left
    Range("f3").Comment.Shape.Top = Range("d3").Top
End Sub

普普通通

看作业

czh1998

让我康康

菜菜想学

看看  后学者