搜尋代號後，尋找對應列數的儲存格 - Excel程式區

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

1^# 跳轉到 »

發表於 2021-1-22 21:20 | 顯示全部帖子

回復 1# abc9gad2016
這是參考 jcchiang 大大的寫法有空看看是不是這樣感謝

Public Sub 尋找相對欄位練習()
Arr = [工作表1!A1].CurrentRegion
Set xD = CreateObject("Scripting.Dictionary")
For Y = 1 To UBound(Arr, 2)
xD(Arr(2, Y)) = Y
Next Y
For X = 3 To UBound(Arr, 1)
For Y = 2 To UBound(Arr, 2)
If Arr(X, 1) = [尋找!A2] And Arr(X, Y) <> "" Then
E = E + 1
Sheets(2).Cells(2, 1 + E) = Arr(2, xD(Arr(2, Y)))
End If
Next Y
Next X
End Sub

複製代碼

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

2^#

發表於 2021-1-23 01:32 | 顯示全部帖子

回復 3# samwang

感謝 samwang 前輩的指導小弟受益良多請問 samwang前輩 T & "" 為甚麼要串連空白 & "" 的用意是甚麼
可否說明一下我不太理解因為字典不是那麼直觀

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

3^#

發表於 2021-1-24 19:01 | 顯示全部帖子

回復 5# samwang

謝謝samwang前輩的回覆學習了感謝

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

4^#

發表於 2021-1-25 21:23 | 顯示全部帖子

本帖最後由軒云熊於 2021-1-25 21:24 編輯

回復 11# abc9gad2016

Public Sub 尋找相對欄位練習()
Application.ScreenUpdating = False
Range(Sheets(2).Cells(2, 2).End(xlToRight), Sheets(2).Cells(2, 2)).ClearContents
Arr = Range(Sheets(1).Cells(Rows.Count, 1).End(xlUp), Sheets(1).Cells(6, 1).End(xlToRight))
Set xD = CreateObject("Scripting.Dictionary")

For Y = 1 To UBound(Arr, 2)
      xD(Arr(1, Y)) = Y
Next Y

For X = 3 To UBound(Arr, 1)
      For Y = 6 To UBound(Arr, 2)
         If Arr(X, 1) = [尋找!A2] And Arr(X, Y) <> "" Then
            E = E + 1
            Sheets(2).Cells(2, 1 + E) = Arr(1, xD(Arr(1, Y)))
         End If
      Next Y
Next X
Application.ScreenUpdating = True
End Sub

建議修改 samwang 大大的位置比較好他的寫法比我的好很多