VBA80集第13集单元格信息练习题

jbljypx

1. Public Sub 第一题()
   
2. Dim i, j, f
   
3. i = Range("C4").CurrentRegion.Rows.Count
   
4. j = Range("C4").CurrentRegion.Columns.Count
   
5. f = Range("C4").CurrentRegion.Cells(i, j).Address(0, 0)
   
6. [C20] = f
   
7. End Sub
   
8. 
   
9. Public Sub 第二题()
   
10. Range("F3").Comment.Shape.Left = Range("C4").CurrentRegion.Left + Range("C4").CurrentRegion.Width
    
11. End Sub
    

复制代码

0126

这个你点击那个练习题里面那个连接在那里回复才行的，这里发布不会给你金币或者什么的