返回列表下一主題上一主題發帖

[發問] VBA 條件收尋

willeddie

中學生 Rank: 2

帖子: 4
主題: 3
精華: 0
積分: 56
點名: 0
作業系統: windows 10
軟體版本: 64
閱讀權限: 20
性別: 男
註冊時間: 2022-10-3
最後登錄: 2023-12-26

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2023-3-17 17:57 | 只看該作者

[發問] VBA 條件收尋

各位前輩好
根據儲存格A3，B2 C2 D2 E2 的儲存格條件下，收尋A3字串將資料帶入B3 C3 D3 E3的處存格裡。
感謝前輩教導，目前在初學著自學中

樓主熱帖

will

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

4^#

發表於 2023-3-20 09:52 | 只看該作者

本帖最後由 Andy2483 於 2023-3-20 09:58 編輯

回復 1# willeddie

謝謝前輩發表此主題與情境
後學練習亂數.陣列的解決方案如下,請前輩參考

VBA 條件收尋_20230320_1.zip (17.76 KB)

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, i&, j%
'↑宣告變數:Brr是通用型變數,i是長整數,j是短整數
Brr = Range([E1], Cells(Rows.Count, "A").End(3))
'↑令Brr這通用型變數是二維陣列,以[E1]到A欄最後有內容儲存格值帶入
For i = 2 To UBound(Brr)
'↑設順迴圈!i從2到 Brr陣列縱向最大索引號
For j = 2 To UBound(Brr, 2)
   '↑設順迴圈!j從2到 Brr陣列橫向最大索欄號
   Brr(i, j) = Trim(Split(Split(Brr(i, 1), Brr(1, j))(1) & "(", "(")(0))
   '↑令i迴圈列j迴圈欄Brr陣列值是
   'i迴圈列第1欄陣列值用第1列第j迴圈欄陣列值做分割成一維陣列,
   '取索引號1的陣列值,以此陣列值連接"("符號,成為新字串
   '再將此新字串用"("符號分割成一維陣列,取索引號0的陣列值
Next
Next
[A1].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
'↑令[A1]擴展向下Brr縱向最大索引列號數,擴展橫向最大索引欄號數,
'這範圍儲存格值以Brr陣列值帶入
Erase Brr
'↑釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522