单元格加减怎么变成数字加减

hhhlll123456

山菊花 发表于 2015-12-18 22:37
Sub Test()
    Dim cGs$, oCell As Range, Rng As Range
    For Each Rng In Range("a3:g3")

佩服！！!已经能解决一部分了
   
  如果要是变竖排的公式怎么办，把C1：C8变到D1：D8

山菊花

Sub Test()
    Dim Rng1 As Range, Rng2 As Range
    Dim cGs$, oCell As Range, Rng As Range, Arr()
    Set Rng1 = Range("C1：C8")
    Set Rng2 = Range("D1：D8")
    ReDim Arr(Rng1.Row To Rng1.Row + Rng1.Rows.Count, Rng1.Column To Rng1.Column + Rng1.Columns.Count - 1)
    For Each Rng In Rng1
        cGs = Replace(Rng.Formula, "$", "")
        For Each oCell In Rng.Precedents
            cGs = Replace(cGs, oCell.Address(0, 0), oCell.Value)
        Next
        Arr(Rng.Row, Rng.Column) = "'" & cGs
    Next
    Rng2.Range("a1").Resize(Rng1.Rows.Count, Rng1.Columns.Count).Value = Arr
End Sub

zxmg2009

=ROW(A1)+ROW(A2)