如何大量更改Excel表格公式中的列引用?如何大量更改Excel表格公式中的列引用?
例如,此列有包含列G(G2,G23,G30等)的REFERENCES的公式,我希望大量更改爲H列(H2,H23,H33等)。
沒有找到任何相關的q & a,也許沒有足夠的搜索,抱歉,並提前感謝!
如何大量更改Excel表格公式中的列引用?如何大量更改Excel表格公式中的列引用?
例如,此列有包含列G(G2,G23,G30等)的REFERENCES的公式,我希望大量更改爲H列(H2,H23,H33等)。
沒有找到任何相關的q & a,也許沒有足夠的搜索,抱歉,並提前感謝!
快速把它放在一起,替換功能留下了許多不足之處! (很懶惰,你需要大概提高它)
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
如果列** E **包含一個像* = GCD(G1,2)*的公式,您的宏將使它* = HCD(H1,2)* .............它會改變所有「G」變成「H」..........工作表函數中的偶數字符。你可能想修改這個只改變「G」後面跟一個數字。 –
確實,這就是爲什麼我說替換函數非常懶惰。你的答案要簡單得多。 – NickSlash
**我喜歡你的方法。**如果你願意更新一點,我會投票。 –
點擊塔A並執行:
插入>列
柱ģ將變得H列和在工作表中的任何公式,在稱爲細胞列G現在將涉及列H中的單元格:
前:
後:
謝謝你們,這是確定我發現它和它的簡單。我只是切換到公式視圖(公式菜單),選中給出結果的列並用h替換(Ctrl + H)g。這一切都完成了。祝你晚上愉快。
哪一列包含公式? –