XY 追問

2022-01-14 11:35

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

XY 追問

2022-01-14 11:35

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

小林老師 解答

2022-01-14 11:38

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

XY 追問

2022-01-14 11:40

要怎么操作呢

XY 追問

2022-01-14 11:41

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

小林老師 解答

2022-01-14 11:41

您好，這個需要寫代碼，在excel里操作，不是wps

XY 追問

2022-01-14 11:42

用vba嗎，還是宏

XY 追問

2022-01-14 11:42

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

XY 追問

2022-01-14 11:42

Function abc(a As Range, b As Range, c As String)
Dim t As String
\'如果a與b的區(qū)域大小不同，就顯示“錯誤”
If a.Rows.Count <> b.Rows.Count Then abc = "錯誤": Exit Function
\'在區(qū)域a是循環(huán)
For i = 1 To a.Rows.Count
\'如果在a中找到與c相同的值，就把同一行中的b的內(nè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 追問

2022-01-14 11:43

當時用過這段代碼，但是特別卡

XY 追問

2022-01-14 11:44

好吧，那老師您有教程嗎

小林老師 解答

2022-01-14 11:49

您好，這個是vba沒使用過

小林老師 解答

2022-01-14 11:49

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