请大佬出手写个代码

盼盼198310

沈默00 发表于 2023-6-27 08:13
谢谢老师，只因为看不太明白SQL，所以。。。。，你做的这个第1，3列正常显示，第2列没有，这样就无法 ...

你的数据源中有两个工序名称列,不想提取哪个列,改一下列名称就行了..............

yynrzwh

1. Dim arr, brr()
   
2.     With Sheets("流程卡打印")
   
3.         xh = .[B3]
   
4.         .Range("A6:C28").ClearContents
   
5.     End With
   
6. arr = Sheets("工艺流程-竖版").UsedRange
   
7. 
   
8.     For i = 2 To UBound(arr)
   
9.         If arr(i, 2) = xh Then
   
10.             n = n + 1
    
11.             ReDim Preserve brr(1 To 3, 1 To n)
    
12.             brr(1, n) = arr(i, 5)
    
13.             brr(2, n) = arr(i, 6)
    
14.             brr(3, n) = arr(i, 7)
    
15.         End If
    
16.     Next i
    
17.    
    
18. Sheets("流程卡打印").Range("A6").Resize(n, 3) = Application.Transpose(brr)
    
19. End Sub
    

复制代码

沈默00

盼盼198310 发表于 2023-6-27 09:56
你的数据源中有两个工序名称列,不想提取哪个列,改一下列名称就行了..............

明白了，谢谢，现在没问题了，得空得学了下SQL，很便捷

全党

试试。。。。。。。。。。。。。。。。

盼盼198310

沈默00 发表于 2023-6-27 10:50
明白了，谢谢，现在没问题了，得空得学了下SQL，很便捷

相对来说,像你这种规范的数据,用sql还是很好的,sql查询除了语句,别的基本都是一样的

全党

沈默00 发表于 2023-6-27 08:20
谢谢老师，代码简洁又完美解决

下拉列表重复太多，建议还是用字典嵌套对下拉列表去重

ykcbf1100

参与一下，二个字典

ericxzhou

用autofilter....

全党

ericxzhou 发表于 2023-6-27 14:24
用autofilter....

赞。。。。。。。。。。。

沈默00

盼盼198310 发表于 2023-6-27 11:11
相对来说,像你这种规范的数据,用sql还是很好的,sql查询除了语句,别的基本都是一样的

是的，一直习惯了用WPS，之前对数据库不支持，后来在论坛里找到了解决的方法。VBA才接触了两个月，涉及的范围很广，先把常规的方法学下再看看SQL，