他山之石——使用VBA获取单元格信息（Get range info with VBA）

最新推荐文章于 2023-10-09 21:28:17 发布

预见未来to50

最新推荐文章于 2023-10-09 21:28:17 发布

阅读量1k

点赞数 1

分类专栏： Excel技巧及VBA编程（Excel_VBA）

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/80754503

版权

Excel技巧及VBA编程（Excel_VBA）专栏收录该内容

404 篇文章 169 订阅

订阅专栏

突然有点明白为什么单元格叫做“cell”了，正如细胞是构成生物体的基本单位，单元格就是Excel中存储信息的基本单位。这注定了单元格对象是一个内涵丰富的对象。正如以下代码所示，有很多知识点我也是第一次碰到。看来，主动学习还是很重要的。

Option Explicit

'1 单元格的值

   Sub x1()
    Range("b10") = Range("c2").Value
    Range("b11") = Range("c2").Text
    Range("c10") = "'" & Range("I3").Formula
   End Sub

 '2 单元格的地址
   
    Sub x2()
     With Range("b2").CurrentRegion
       [b12] = .Address
       [c12] = .Address(0, 0)
       [d12] = .Address(1, 0)
       [e12] = .Address(0, 1)
       [f12] = .Address(1, 1)
     End With
    End Sub
 
 '3 单元格的行列信息
    Sub x3()
      With Range("b2").CurrentRegion
        [b13] = .Row
        [b14] = .Rows.Count
        [b15] = .Column
        [b16] = .Columns.Count
        [b17] = .Range("a1").Address
      End With
    End Sub
     
 '4、单元格的格式信息
    Sub x4()
      With Range("b2")
        [b19] = .Font.Size
        [b20] = .Font.ColorIndex
        [b21] = .Interior.ColorIndex
        [b22] = .Borders.LineStyle
      End With
    End Sub
       
  '5、单元格批注信息
     Sub x5()
        [B24] = Range("I2").Comment.Text
     End Sub

  '6 单元格的位置信息
     Sub x6()
        With Range("b3")
          [b26] = .Top
          [b27] = .Left
          [b28] = .Height
          [b29] = .Width
        End With
     End Sub
  '7 单元格的上级信息
    Sub x7()
      With Range("b3")
        [b31] = .Parent.Name
        [b32] = .Parent.Parent.Name
      End With
    End Sub
   '8 内容判断
      Sub x8()
       With Range("i3")
        [b34] = .HasFormula
        [b35] = .Hyperlinks.Count
       End With
      End Sub
    '9 单元格数据类型（另讲）