2011-10-18 107 views
-1

一個工作表。 103列。我需要填充一列中的第104列(列O又名15)。該列中只有兩個值,不管是1還是3。如果該列中有1,那麼該行的第104列單元格需要一個符號;如果它是3,那麼它需要一個不同的符號。我對配方有一些瞭解,並且對vba有所瞭解,這讓我無從得知。我使用其他宏來轉換列中的值,但它們都在同一列中工作,我似乎無法將這些宏適配到我現在需要的值。是否有一個相對較快的小宏,我可以通過它只查找列o中的值,並以最後一列的兩個符號中的一個表示彈出?根據另一列填充一列的單元格

編輯了第一部分。我想我會一次考慮兩件事情。它是專欄。有近3600行。我需要遍歷每一行,並根據列O中的值是1還是3來輸入最後一列(第104列)中的記號。因此,從第1行開始,在最後一列中輸入x或y取決於列o中的值,然後重複每一行。

回答

5

試試這個:

Sub HTH() 

    With Range("O1", Cells(Rows.Count, "O").End(xlUp)).Offset(, 89) 
     .Formula = "=IF(O1=3,""x"",""y"")" 
     .Value = .Value 
    End With 

End Sub 
+0

注意:它假定列只能包含1或3。如果它可以包含,那麼你將需要稍微修改其他值或空白。類似於'.Formula =「= IF(O1 = 3,」「y」「,IF(O1 = 1,」「x」「,」「」))「 – Reafidy

+1

+1」循環)代碼 – brettdj

+0

@brett - 謝謝,我設法在一個骯髒的舊環路被拉出工具箱之前潛入,我確信有人在那裏蓋開了! ;) – Reafidy

相關問題