Re: [算表] VBA 選取一列中含特定字元最末資料

看板Office作者joshjetly ( )時間6年前 (2017/09/04 18:56)推噓0(0推 0噓 12→)

留言12則, 2人參與討論串2/2 (看更多)

※ 引述《joshjetly ( )》之銘言：軟體: Excel VBA 版本: 2010 各位先進大家好在下是 VBA 新手有批好幾頁每頁接近萬列的資料要整理每列約有 50~100 個儲存格資料大致如下 A B C | D E F G H I J K L M | 1 [7] (5) 1 | [3] (4) 13 [2] (2) 7 40 [7] (5) 1 | 2 [2] (4) 9 | [9] (6) 4 [2] (4) 8 5 16 9 | 3 [6] (3) 20 | [6] (5) 1 (8) 3 2 1 (3) 29 20 | 在下希望可以在 A 欄：找出同列中最後筆包含 "[" 的文字 B 欄：找出同列中最後筆包含 "(" 的文字 C 欄：找出同列中最後筆數字請問該如何用 VBA Function 處理呢？麻煩各為先進了感激不盡！ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.67.5.101 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504430247.A.5A6.html

→

soyoso

09/03 17:36,

09/03 17:36

→

soyoso

09/03 17:37,

09/03 17:37

→

soyoso

09/03 17:39,

09/03 17:39

→

soyoso

09/03 17:40,

09/03 17:40

→

soyoso

09/03 17:46,

09/03 17:46

→

soyoso

09/03 17:47,

09/03 17:47

→

soyoso

09/03 17:48,

09/03 17:48

→

soyoso

09/03 17:48,

09/03 17:48

→

joshjetly

09/04 06:22,

09/04 06:22

各位先進大家好以下是依法做出的 Function FindLast -------------------- Public Function FindLast(WorkRng As Range, Optional Sign As String) As String Dim Rng As Range For Each Rng In WorkRng If InStr(Rng, Sign) > 0 Then FindLast = Rng.Text End If Next End Function -------------------- 若 A1=FindLast(D1:M1,"[") 可回傳 "[7]" 但若是將 WorkRng 改為 OFFSET($D1,,,,COUNTA(1:1)-3) 則回傳數字 "0" 請問是哪裡出問題呢？麻煩各為先進了感激不盡！ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.67.231.14 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504522575.A.263.html

→

soyoso

09/04 19:04, , 1^F

09/04 19:04, 1^F

→

soyoso

09/04 19:04, , 2^F

09/04 19:04, 2^F

→

joshjetly

09/04 19:24, , 3^F

09/04 19:24, 3^F