Function Getdate(myRng As Range, myArea As Range)
Application.Volatile
Dim myStr As String
Dim myRowNo As Integer
Dim myColNo As Integer
Dim mycells As Date
Dim myMerge As Range
myStr = Application.Clean(myRng.Text)
myRowNo = Application.Match(myStr, myArea, 0)
myColNo = myArea.Column
Set myMerge = Cells(myRowNo, myColNo - 1).MergeArea
mycells = myMerge.Cells(1, 1)
Getdate = mycells
End Function
初學，請試試
※ 引述《evantw (安安小成)》之銘言：
: 軟體:Excel
: 版本:2003
: 我的檔案內有兩列格式如下
: -------A-----------B----
: 1- -- 王曉明 -
: 2- 2010/03/05 -- 張小鳳 -
: 3- -- 李志明 -
: ------------------------
: 因為作業關係 A 列 1~3 行為合併儲存格
: 我打算用 VBA 方式先找出 B 列位置
: 然後顯示出 A 列的值
: 但是目前遇到的是如果找的是 王曉明
: 那可以順利顯示出 A 列的 2010/03/05 值
: 但是如果改查詢 張小鳳 或是 李志明 的話
: 就出現是空白的內容
: 請問有什麼方式在不解除合併儲存格狀態下
: 能夠順利解決嗎??
: 如果有說明不清楚的地方請回應
: 我會再補充說明
: 謝謝~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.39.172.99