大家好，请教，单元格内容更新后，在当前行的指定列写入指定公式，谢谢！

吴某林

大家好，请教单元格内容更新后，在当前行的指定列写入指定公式，谢谢！
如我在B111或C111的单元格写了一个值后，如果B111与C111都不为空，
在E111写一个公式，=IF(OR($B111="",$C111=""),0,LOOKUP(1,0/(($B$1:$B110=$B111)*($C$1:$C110=$C111)),E$1:E110))
在F111写一个公式，=IF(OR($B111="",$C111=""),0,LOOKUP(1,0/(($B$1:$B110=$B111)*($C$1:$C110=$C111)),F$1:F110))
在G111写一个公式，=IF(OR($B111="",$C111=""),0,LOOKUP(1,0/(($B$1:$B110=$B111)*($C$1:$C110=$C111)),G$1:G110))
在G111写一个公式，=IF(OR($B111="",$C111=""),0,LOOKUP(1,0/(($B$1:$B110=$B111)*($C$1:$C110=$C111)),H$1:H110))
以此类推：
在B112或C112的单元格写了一个值后，
在E112写一个公式，=IF(OR($B112="",$C112=""),0,LOOKUP(1,0/(($B$1:$B111=$B112)*($C$1:$C111=$C112)),E$1:E111))
在F112写一个公式，=IF(OR($B112="",$C112=""),0,LOOKUP(1,0/(($B$1:$B111=$B112)*($C$1:$C111=$C112)),F$1:F111))
在G112写一个公式，=IF(OR($B112="",$C112=""),0,LOOKUP(1,0/(($B$1:$B111=$B112)*($C$1:$C111=$C112)),G$1:G111))
在G112写一个公式，=IF(OR($B112="",$C112=""),0,LOOKUP(1,0/(($B$1:$B111=$B112)*($C$1:$C111=$C112)),H$1:H111))

liulang0808

楼主看看表格change事件的案例

ykcbf1100

楼主最好上传一个附件，你这样空对空的解决不了问题。

吴某林

ykcbf1100 发表于 2024-7-12 09:13
楼主最好上传一个附件，你这样空对空的解决不了问题。

附件已上传，大师如果方便请帮忙看看，谢谢！

ykcbf1100

吴某林 发表于 2024-7-12 13:08
附件已上传，大师如果方便请帮忙看看，谢谢！

你这个不用公式就行啊，VBA可以直接取到值。

ykcbf1100

不用公式，直接出结果，这就是VBA的方便之处。

ykcbf1100

VBA取值。。。

1. Sub ykcbf()  '//2024.7.12
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
4.     arr = Me.[a1].Resize(r, 7)
   
5.     For i = 2 To r
   
6.         s = arr(i, 2) & "|" & arr(i, 3)
   
7.         If Not d.exists(s) Then
   
8.             d(s) = i
   
9.         End If
   
10.     Next
    
11.     For i = 2 To r
    
12.         s = Me.Cells(i, 2) & "|" & Me.Cells(i, 3)
    
13.         If d.exists(s) Then
    
14.             Me.Cells(i, 5) = arr(d(s), 5)
    
15.             Me.Cells(i, 6) = arr(d(s), 6)
    
16.             Me.Cells(i, 7) = arr(d(s), 7)
    
17.         End If
    
18.     Next
    
19. End Sub
    
20. 
    

复制代码

心的启点

https://club.excelhome.net/threa ... tml?_dsign=ad237520

吴某林

ykcbf1100 发表于 2024-7-12 13:41
VBA取值。。。

谢谢，非常感谢！