只想要抓取符合條件的"第一筆"其他不要 - Excel程式區

[發問] 只想要抓取符合條件的"第一筆"其他不要

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-5-12 08:17 | 顯示全部帖子

回復 1# boblovejoyce
抓取符合條件的"第一筆", 不清楚你的邏輯 ,試試看

Option Explicit
Sub Ex()
Dim Ar() As Variant, Ay() As Variant, i As Single, Msg As Variant
With Sheet1
Ar = .Range(.Cells(2, 10), .Cells(Rows.Count, 10).End(xlUp)) '陣列元素由儲存格取得為二維陣列
Ar = Application.WorksheetFunction.Transpose(Ar) '轉置為一維陣列
If Join(Ar, "") = "" Then 'Join 函數傳回一個字串，該字串是透過連結某個陣列中的多個子字串而建立的。
MsgBox "沒資料"
Exit Sub
End If
ReDim Ay(1 To UBound(Ar)) '同Ar大小的陣列
For i = 1 To UBound(Ar)
With .[A:A]
'After:=.Cells(.Cells.Count) 從最後一個儲存格
If Not .Find(Ar(i), After:=.Cells(.Cells.Count), lookat:=xlPart) Is Nothing Then
Ay(i) = .Find(Ar(i), After:=.Cells(.Cells.Count), lookat:=xlPart)
Ay(i) = Right(Ay(i), Len(Ay(i)) - IIf(Len(Ay(i)) > 7, 7, 0))
End If
End With
Next
.Cells(2, 11).Resize(UBound(Ar), 1).Value = Application.WorksheetFunction.Transpose(Ay)
'陣列元素由左而右:由上而下須轉置
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-5-29 19:36 | 顯示全部帖子

回復 12# boblovejoyce
沒有指明參數名稱，，，點出參數位置。
請看VBA中 Find 的說明

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 天上最美是星星，人生最美是溫情。