根据另一列填充一列的单元格

-1

一个工作表。 103列。我需要填充一列中的第104列（列O又名15）。该列中只有两个值，不管是1还是3。如果该列中有1，那么该行的第104列单元格需要一个符号;如果它是3，那么它需要一个不同的符号。我对配方有一些了解，并且对vba有所了解，这让我无从得知。我使用其他宏来转换列中的值，但它们都在同一列中工作，我似乎无法将这些宏适配到我现在需要的值。是否有一个相对较快的小宏，我可以通过它只查找列o中的值，并以最后一列的两个符号中的一个表示弹出？根据另一列填充一列的单元格

编辑了第一部分。我想我会一次考虑两件事情。它是专栏。有近3600行。我需要遍历每一行，并根据列O中的值是1还是3来输入最后一列（第104列）中的记号。因此，从第1行开始，在最后一列中输入x或y取决于列o中的值，然后重复每一行。

来源

2011-10-18 Jon

试试这个：

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

来源

2011-10-18 19:42:38 Reafidy

注意：它假定列只能包含1或3。如果它可以包含，那么你将需要稍微修改其他值或空白。类似于'.Formula =“= IF（O1 = 3，”“y”“，IF（O1 = 1，”“x”“，”“”））“ – Reafidy

+1”循环）代码 – brettdj

@brett - 谢谢，我设法在一个肮脏的旧环路被拉出工具箱之前潜入，我确信有人在那里盖开了！ ;） – Reafidy

根据另一列填充一列的单元格

回答

相关问题