首页 > 解决方案 > 如果 C1=C2 Excel vba,则将单元格内容 E1 复制到 E2

问题描述

我有一个怪物电子表格,它在 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

标签: excelvba

解决方案


尝试,

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

推荐阅读