返回列表 上一主題 發帖

[發問] VBA 條件收尋

willeddie

帖子
4 
主題
3 
精華
0 
積分
56 
點名
0  
作業系統
windows 10 
軟體版本
64 
閱讀權限
20 
性別
男 
註冊時間
2022-10-3 
最後登錄
2023-5-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-3-17 17:57 | 只看該作者

[發問] VBA 條件收尋

00000.png
2023-3-17 17:50

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

准提部林

帖子
2680 
主題
9 
精華
0 
積分
2736 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2023-6-8 
2#
發表於 2023-3-18 16:55 | 只看該作者
回復 1# willeddie


請上傳檔案//
這公式也可以的

TOP

hcm19522

帖子
1291 
主題
1 
精華
0 
積分
1298 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2023-6-8 

熱烈參與勳章
3#
發表於 2023-3-19 10:29 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/590761429
隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

Andy2483
　暱稱: 厚臉皮的學生

高中生Rank: 3Rank: 3

帖子
882 
主題
31 
精華
0 
積分
898 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-6-9 
4#
發表於 2023-3-20 09:52 | 只看該作者
本帖最後由 Andy2483 於 2023-3-20 09:58 編輯

回復 1# willeddie


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

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

執行前:
20230320-1.jpg
2023-3-20 09:51


執行結果:
20230320-2.jpg
2023-3-20 09:51


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

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題