2016-04-25 76 views
-1

我寫了一段代碼,現在我的excel模板已經更改(第一列不再需要),是否有辦法將入口代碼1列移動到左側修正它一步一步?將代碼移動到左邊

例如(這是舊代碼):

.Range("I1:J1") = Array("CHECK", "KEY") 

現在我需要改變爲:

.Range( 「H1:I1」)=陣列( 「檢查」,「 KEY「)

但是這是一個非常長的代碼,我想知道是否有任何方法可以更容易。

謝謝。

回答

2

我會建議使用簡單的內置搜索&替換函數(Ctrl + f)。把下面的

.Range("I1:J1")

進入 「查找內容」 字段和

.Range("H1:I1")

進入 「替換爲」 字段。
如果你真的很懶,你可以點擊全部替換按鈕,但這可能是危險的,因爲在可能改變的部分你不想改變。但是,即使使用更長的代碼,使用「替換」按鈕並遍歷所有條目也可以相當快,並且通過這種方式,您可以檢查每個條目是否真的改變它。

+0

這真的很好,我什至沒有它的事情。 –

+0

謝謝,我能爲公式做些什麼?如下:'.Range(「A2:A」&lr).FormulaR1C1 =「= RC8&RC13&RC17」 .Range(「B2:B」&lr).FormulaR1C1 =「= VLOOKUP(RC1,'CSI Plan ww'!C10 (「C2:C」&lr).FormulaR1C1 =「= VLOOKUP(RC1,'CSI Plan ww'!C10:C14,3,0)」 .Range(「D2:C14,2,0)」 。 :「=」= VLOOKUP(RC1,'CSI Plan ww'!C10:C14,4,0)「 。Range(」E2:E「&lr).FormulaR1C1 =」= VLOOKUP ,'CSI Plan ww'!C10:C14,5,0)「' –

+0

你必須有一點創造性,並相應地改變你的搜索和替換標準。將RC1置於「Find What」中,將RC2置於「Replace With」中,等等。如果您有許多不同的案例需要解決,可能需要多一點工作。 – Icebear