如何搜尋符合字串 , 並將該行列號及資料列顯示出來
[i=s] 本帖最後由 marklos 於 2017-3-24 10:16 編輯 [/i]Q1 請問要將工作表內有刪除線的數據 , 自動整列刪除 , 該如何做?
[attach]26876[/attach]
Q2 依據A1儲存格的字串 , 搜尋"Data"工作頁內 "D"欄位相符的字串 , 將列號顯示在A欄位並將整列資料顯示在其後
[attach]26877[/attach]
感謝~~ A3:A6{=IFERROR(SMALL(IF(Data!D$2:D$99=A$1,ROW(D$2:D$99)),ROW(A1)),"")
B3:M6=IF(A3="","",INDEX(Data!A:A,Result!$A3)) [attachimg]26883[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98120&ptid=19455]2#[/url] [i]hcm19522[/i] [/b]
請問大大
Q1 自動刪除"有刪除線"的整列數據 可行嗎?
Q2 帶入函數後 , 列號顯示都為0 ?? 都為0的情形下 , 後面欄位的數據 , 應該都是相同才是 , 為何會有不同的資料被回傳??
[attach]26883[/attach] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98125&ptid=19455]3#[/url] [i]marklos[/i] [/b]
複製公式 不含 "=" ,貼上後加 "=" ;最前 "{" 代表 shift+ctrl+enter 三鍵一起按所產生 ,非程式裡面 [attach]26884[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98127&ptid=19455]4#[/url] [i]hcm19522[/i] [/b]
請幫忙看看~哪裡有問題
感謝
[attach]26884[/attach] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98129&ptid=19455]5#[/url] [i]marklos[/i] [/b]
複製後加 "=" ; 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))) [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98135&ptid=19455]6#[/url] [i]hcm19522[/i] [/b]
感謝~可以正常使用了~
第一個問題 資料工作表中 , 是否有函數或是巨集可以自動 刪除有刪除線的資料列呢?? [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98135&ptid=19455]6#[/url] [i]hcm19522[/i] [/b]
再請教一個問題
如果想要搜尋所有EB開頭的字串 , 該怎麼做呢? 謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列,學習方案如下,請各位前輩指教
執行前:
[attach]36448[/attach]
執行結果:
[attach]36449[/attach]
Option Explicit
Sub TEST()
Dim Brr, Y, R&, i&, j%, V$
[color=SeaGreen]'↑宣告變數[/color]
Brr = Range([Data!M1], [Data!A65536].End(3))
[color=SeaGreen]'↑令Brr變數是 二維陣列,以Data表A~M欄儲存格值帶入陣列中[/color]
V = [Result!A1]
[color=SeaGreen]'↑令V變數是 Result表[A1]儲存格字串[/color]
For i = 2 To UBound(Brr)
[color=SeaGreen]'↑設順迴圈[/color]
If Brr(i, 4) = V Then
[color=SeaGreen] '↑如果第4欄值是 同V變數[/color]
R = R + 1: Brr(R, 1) = i
[color=SeaGreen] '↑令R變數累加1,令Brr陣列第1欄複寫入i變數值[/color]
For j = 1 To 12: Brr(R, j + 1) = Brr(i, j): Next
[color=SeaGreen] '↑令其他資料複寫入Brr陣列2~13欄[/color]
End If
Next
With Sheets("Result")
[color=SeaGreen]'↑以下是關於Result表的程序[/color]
.UsedRange.Offset(2, 0).ClearContents
[color=SeaGreen] '↑令標題列留下,其餘儲存格清除內容[/color]
.[A3].Resize(R, 13) = Brr
[color=SeaGreen] '↑令Brr陣列值寫入儲存格裡,超過範圍的陣列值忽略[/color]
End With
Set Y = Nothing: Erase Brr
[color=SeaGreen]'↑令釋放變數[/color]
End Sub
頁:
[1]