Excel VBA 单元格信息

1 单元格的值

   Sub x1()
    Range("b10") = Range("c2").Value
    Range("b11") = Range("c2").Text
    Range("b11") = "'" & Range("c2").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