[已解决]在工作表表格1中，输入客户名称后获取明细表中对应客户明细

lj3543711

在工作表表格1中，输入客户名称，就直接调用工作表2的产品名称信息显示出来 客户名称是A列合并 的 如下图    客户名称是唯一的 销售清单.zip (14.56 KB, 下载次数: 8) 2021-9-25 23:19 上传 点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-26 01:50

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

祝順心，南無阿彌陀佛！

lj3543711

cutecpu 发表于 2021-9-26 01:50
祝順心，南無阿彌陀佛！对的就是这样的谢谢

lj3543711

cutecpu 发表于 2021-9-26 01:50
祝順心，南無阿彌陀佛！

运行没有问题不知道为啥  调试就报错

cutecpu

lj3543711 发表于 2021-9-26 06:54

1. 将方法 1 字典用成全域，可以重复利用
2. 新增方法 2 ，使用 Find 函数单次利用！

祝順心，南無阿彌陀佛！

lisongmei

写着玩

1. Sub copy_new()
   
2. Dim sr As String
   
3. Dim arr
   
4. Dim i, x As Integer
   
5. sr = Sheet2.Range("E1").Value
   
6. Sheet2.Range("D6:L1000").ClearContents
   
7. arr = Sheet1.Range("a6:t" & Sheet1.Range("A10000").End(xlUp).Row - 1).Value
   
8. For i = 1 To UBound(arr)
   
9.     If arr(i, 1) = sr Then
   
10.         x = Sheet1.Range("a" & i + 5).MergeArea.Count
    
11.         Sheet2.Range("d6").Resize(x, 3).Value = Sheet1.Range("a" & i + 5).Offset(, 1).Resize(x, 3).Value
    
12.         Sheet2.Range("g6").Resize(x, 1).Value = Sheet1.Range("a" & i + 5).Offset(, 5).Resize(x, 1).Value
    
13.         Sheet2.Range("h6").Resize(x, 2).Value = Sheet1.Range("a" & i + 5).Offset(, 13).Resize(x, 2).Value
    
14.         Sheet2.Range("k6").Resize(x, 2).Value = Sheet1.Range("a" & i + 5).Offset(, 18).Resize(x, 2).Value
    
15.         Sheet2.Range("j6").Value = "=H6*I6"
    
16.         Sheet2.Range("j6").Resize(x - 1, 1).FillDown
    
17.         Exit For
    
18.     End If
    
19. Next
    
20. End Sub

复制代码