Question

我有一个庞然大物的电子表格，在C列中具有代码值，在E列中具有显示值。每个显示值每个代码值仅显示一次，并且每一行都需要它。

如果C2 = C3，是否可以使用VBA将E2的单元格内容复制到E3，以将空白更新为正确的值？

因此，如果C2 = C3，则将B2复制到B3 ？？？

这是我需要对另一个域进行交叉检查的32000行的子集

   C (code value)              E(display)
2  83732063  Red Cell Ferritin-SCH    
3  83732063    
4  83732067  Plasma Volume-SCH    
5  83732071  Acylcarnitine Level-SCH    
6  83732071     
7  83732075  Carnitine Total Level-SCH    
8  83732075   
9  83732079  Creatine Level-SCH    
10 83732083  Gamma Aminobutyrate Lvl (CSF/Urine)-SCH

Answer 1

尝试

on error resume next

with worksheets("sheet1").columns("E")
    with .specialcells(xlcelltypeblanks)
        .formular1c1 = "=if(rc[-2]=r[-1]c[-2], r[-1]c, text(,))"
    end with
    .value = .value
end with

on error goto 0

如果C1 = C2 Excel vba，则将单元格内容E1复制到E2

1 个答案: