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

Anlie0705

向高手学习

早睡早起

抄作业

wlzadrhyt

每天一练，每天上BBS学习

czh1133

看看喽

刘惠

斑马线

如果蜗牛有爱情

Sub t1()
Dim x As Integer
Dim y As Integer
With Range("c4").CurrentRegion
x = .Rows.Count + 2
y = .Columns.Count + 2
Cells(x, y).Select
End With
End Sub

mopstudyexcel

mopstudyexcel

加油@！@

Jeff-0923