XY 追問(wèn)

2022-01-14 11:35

例如這樣，我要在a表顯示出匹配的對(duì)應(yīng)所有訂單號(hào)

XY 追問(wèn)

2022-01-14 11:35

數(shù)據(jù)太大了一個(gè)表都已經(jīng)用十幾萬(wàn)行，最好不用輔助列的方法

小林老師 解答

2022-01-14 11:38

您好，您的需求用power query很容易解決

XY 追問(wèn)

2022-01-14 11:40

要怎么操作呢

XY 追問(wèn)

2022-01-14 11:41

我不會(huì)數(shù)據(jù)庫(kù)呀

小林老師 解答

2022-01-14 11:41

您好，這個(gè)需要寫(xiě)代碼，在excel里操作，不是wps

XY 追問(wèn)

2022-01-14 11:42

用vba嗎，還是宏

XY 追問(wèn)

2022-01-14 11:42

Function abc(a As Range, b As Range, c As String)
Dim t As String
\'如果a與b的區(qū)域大小不同，就顯示“錯(cuò)誤”
If a.Rows.Count <> b.Rows.Count Then abc = "錯(cuò)誤": Exit Function
\'在區(qū)域a是循環(huán)
For i = 1 To a.Rows.Count
\'如果在a中找到與c相同的值，就把同一行中的b的內(nèi)容提取出來(lái)，存入變量t中。
If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)
Next
\'將變量的值賦給自定義函數(shù)
abc = t
End Function

XY 追問(wèn)

2022-01-14 11:42

Function abc(a As Range, b As Range, c As String)
Dim t As String
\'如果a與b的區(qū)域大小不同，就顯示“錯(cuò)誤”
If a.Rows.Count <> b.Rows.Count Then abc = "錯(cuò)誤": Exit Function
\'在區(qū)域a是循環(huán)
For i = 1 To a.Rows.Count
\'如果在a中找到與c相同的值，就把同一行中的b的內(nèi)容提取出來(lái)，存入變量t中。
If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)
Next
\'將變量的值賦給自定義函數(shù)
abc = t
End Function

小林老師 解答

2022-01-14 11:43

您好，都不是，是表格的新功能

XY 追問(wèn)

2022-01-14 11:43

當(dāng)時(shí)用過(guò)這段代碼，但是特別卡

XY 追問(wèn)

2022-01-14 11:44

好吧，那老師您有教程嗎

小林老師 解答

2022-01-14 11:49

您好，這個(gè)是vba沒(méi)使用過(guò)

小林老師 解答

2022-01-14 11:49

您好，沒(méi)有相關(guān)教程