2015-05-08 104 views
0

如何大量更改Excel表格公式中的列引用?如何大量更改Excel表格公式中的列引用?

例如,此列有包含列G(G2,G23,G30等)的REFERENCES的公式,我希望大量更改爲H列(H2,H23,H33等)。

沒有找到任何相關的q & a,也許沒有足夠的搜索,抱歉,並提前感謝!

+1

哪一列包含公式? –

回答

0

快速把它放在一起,替換功能留下了許多不足之處! (很懶惰,你需要大概提高它)

R應設置爲你想要改變。

只是一個概念證明的真實引用公式列。如果測試它,請確保保存了工作簿的副本。

Sub Main() 
Dim R As Range: Set R = ThisWorkbook.Worksheets("Sheet1").Range("$E$1:$E$2") 
Dim Cell As Range 
Dim CellPrecedent As Range 
Dim CellPrecedents As Range 
Dim Retry As Boolean: Retry = False 
For Each Cell In R.Cells 
    On Error Resume Next 
    Set CellPrecedents = Cell.Precedents 
    On Error GoTo 0 

    If CellPrecedents Is Nothing Then 
     ' skip 
    Else 
     For Each CellPrecedent In CellPrecedents 
      If CellPrecedent.Column = 7 Then ' 7 == G 
       Cell.Formula = Replace(Cell.Formula, "G", "H") 
       GoTo Breakout 
      End If 
     Next CellPrecedent 
    End If 
Breakout: 
Next Cell 
If Retry Then Main 
End Sub 
+0

如果列** E **包含一個像* = GCD(G1,2)*的公式,您的宏將使它* = HCD(H1,2)* .............它會改變所有「G」變成「H」..........工作表函數中的偶數字符。你可能想修改這個只改變「G」後面跟一個數字。 –

+0

確實,這就是爲什麼我說替換函數非常懶惰。你的答案要簡單得多。 – NickSlash

+0

**我喜歡你的方法。**如果你願意更新一點,我會投票。 –

1

點擊塔A並執行:

插入>列

ģ將變得H列和在工作表中的任何公式,在稱爲細胞列G現在將涉及列H中的單元格:

前:

enter image description here

後:

enter image description here

0

謝謝你們,這是確定我發現它和它的簡單。我只是切換到公式視圖(公式菜單),選中給出結果的列並用h替換(Ctrl + H)g。這一切都完成了。祝你晚上愉快。

相關問題