自动提取数据

窝心市民陈老

请问大神们，这如何做到，手动输入名字，相应的内容自动填充，拜托大神

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 4 Then Exit Sub
   
3.     If Target.Row < 2 Then Exit Sub
   
4.     If Target.Cells.Count > 1 Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     If Target.Offset(, 1) <> "" Then
   
7.         Target = ""
   
8.         Application.EnableEvents = True
   
9.         Exit Sub
   
10.     End If
    
11.     arr = Range("a1:b" & [a65536].End(3).Row)
    
12.     For i = 2 To UBound(arr)
    
13.         If arr(i, 1) = Target Then
    
14.             n = n + 1
    
15.             Target.Offset(n - 1, 1) = arr(i, 2)
    
16.         End If
    
17.     Next
    
18.     Application.EnableEvents = True
    
19. End Sub

复制代码

窝心市民陈老

grf1973 发表于 2020-1-22 15:32

大神，有不用VBA的方法吗？

cutecpu

E2 陣列公式:
=IFERROR(
INDEX(B:B,
SMALL(
IF(LOOKUP("々",D$2:D2)=A$2:A$8,ROW($2:$8)),
ROW()-LOOKUP("々",D$2:D2,ROW($2:2))+1)
),"")

※陣列公式，請記得按Ctrl+Shift+Enter

※如果有解決您的問題，再請將帖子設為[已解決]

祝順心，南無阿彌陀佛！

窝心市民陈老

cutecpu 发表于 2020-1-22 20:47
E2 陣列公式:
=IFERROR(
INDEX(B:B,

大神，这一步，我没看懂，求解释！还有这个々符号是什么意思，以后该怎么用，怎么打呢

窝心市民陈老

cutecpu 发表于 2020-1-22 20:47
E2 陣列公式:
=IFERROR(
INDEX(B:B,

名字中要是含有数字，或者纯数字，就不能填充了，有没有针对输入数字，自动填充相应数据的

cutecpu

窝心市民陈老 发表于 2020-1-23 14:22
名字中要是含有数字，或者纯数字，就不能填充了，有没有针对输入数字，自动填充相应数据的

E2 陣列公式:
=IFERROR(
INDEX(B:B,
SMALL(
IF(LOOKUP(1,0/(D$2:D2<>""),D$2:D2)=A$2:A$10,ROW($2:$10)),
ROW()-LOOKUP(1,0/(D$2:D2<>""),ROW($2:2))+1)
),"")

※陣列公式，請記得按Ctrl+Shift+Enter

※如果有解決您的問題，再請將帖子設為[已解決]

祝順心，南無阿彌陀佛！

窝心市民陈老

cutecpu 发表于 2020-1-23 19:46
E2 陣列公式:
=IFERROR(
INDEX(B:B,

感谢大神，版主V5