marklos

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-3-24 10:14 | 只看該作者

[發問] 如何搜尋符合字串 , 並將該行列號及資料列顯示出來

本帖最後由 marklos 於 2017-3-24 10:16 編輯

Q1 請問要將工作表內有刪除線的數據 , 自動整列刪除 , 該如何做?

Q2 依據A1儲存格的字串 , 搜尋"Data"工作頁內 "D"欄位相符的字串 , 將列號顯示在A欄位並將整列資料顯示在其後

感謝~~

Question8.zip (15.26 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

9^#

發表於 2023-5-26 13:34 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Y, R&, i&, j%, V$
'↑宣告變數
Brr = Range([Data!M1], [Data!A65536].End(3))
'↑令Brr變數是二維陣列,以Data表A~M欄儲存格值帶入陣列中
V = [Result!A1]
'↑令V變數是 Result表[A1]儲存格字串
For i = 2 To UBound(Brr)
'↑設順迴圈
If Brr(i, 4) = V Then
'↑如果第4欄值是同V變數
   R = R + 1: Brr(R, 1) = i
   '↑令R變數累加1,令Brr陣列第1欄複寫入i變數值
   For j = 1 To 12: Brr(R, j + 1) = Brr(i, j): Next
   '↑令其他資料複寫入Brr陣列2~13欄
End If
Next
With Sheets("Result")
'↑以下是關於Result表的程序
.UsedRange.Offset(2, 0).ClearContents
'↑令標題列留下,其餘儲存格清除內容
.[A3].Resize(R, 13) = Brr
'↑令Brr陣列值寫入儲存格裡,超過範圍的陣列值忽略
End With
Set Y = Nothing: Erase Brr
'↑令釋放變數
End Sub

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

TOP

marklos

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

8^#

發表於 2017-3-26 10:10 | 只看該作者

回復 6# hcm19522

再請教一個問題
如果想要搜尋所有EB開頭的字串 , 該怎麼做呢?

TOP

marklos

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

7^#

發表於 2017-3-26 08:58 | 只看該作者

回復 6# hcm19522

感謝~可以正常使用了~
第一個問題資料工作表中 , 是否有函數或是巨集可以自動刪除有刪除線的資料列呢??

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

6^#

發表於 2017-3-25 09:33 | 只看該作者

回復 5# marklos

複製後加 "=" ; shift+ctrl+enter 三鍵一起按
2003版
IF(ISERR(SMALL(IF(Data!D$2:D$99=A$1,ROW(D$2:D$99)),ROW(A1))),"",SMALL(IF(Data!D$2:D$99=A$1,ROW(D$2:D$99)),ROW(A1)))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

marklos