VBA依条件提取不重复值并合并

zpy2

lrq20501 发表于 2022-11-18 14:04
小的就一小白…看不懂啊@2

哪里不明白？
复制粘贴，提交就行了啊。

lrq20501

fzxba 发表于 2022-11-18 13:53

大蝦，满完美的啊。
不过想请教一下，如果需要的单元格不一样，怎么调整比较好？要以G4单元格，来取资料输出到D4单元格。

fzxba

lrq20501 发表于 2022-11-18 16:56
大蝦，满完美的啊。
不过想请教一下，如果需要的单元格不一样，怎么调整比较好？要以G4单元格，来取资料 ...

Sub test1()
  Dim Conn As Object, rs As Object, SQL As String, ar
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  Worksheets(1).Activate
  Range("D4") = vbNullString
  SQL = "SELECT DISTINCT [Work ID] FROM [" & Worksheets(2).Name & "$] WHERE [Customer PO#]='" & Range("G4").Value & "'"
  Set rs = Conn.Execute(SQL)
  If rs.EOF And rs.bof Then
    MsgBox "Customer PO# [" & Range("G4").Value & "] not found!", vbInformation
  Else
    ar = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rs.GetRows))
    Range("D4") = Join(ar, ","): Beep
  End If
  Set rs = Nothing
  Conn.Close
  Set Conn = Nothing
End Sub

准提部林

字典基本用法//
Xl0000186.rar (13.48 KB, 下载次数: 17)

2022-11-18 21:22 上传

点击文件名下载附件

lrq20501

fzxba 发表于 2022-11-18 17:27
Sub test1()
  Dim Conn As Object, rs As Object, SQL As String, ar
  Set Conn = CreateObject("ADO ...

这就是所希望的，谢谢！