如何使用函數求得１～１２月份中的第一天和最後一天的值（基金）

herbage

  如何使用函數求得１～１２月份中的第一天和最後一天的值
（ex 就給的資料來說一月份的第一天為１月２號　而最後一天為１月３１日…
　因為境外基金不是每天都有淨值資料。）

加上檔案上給的條件！！！

麻煩各位高手幫幫忙＾＾　謝謝！！！！！！

wshcw

当月第一天:=A2-DAY(A2)+1
当月第一天:=--TEXT(A2,"e-m")
当月最后一天:=EOMONTH(A2,0)
当月最后一天:=EDATE(A2-DAY(A2)+1,1)-1

herbage

Option Explicit

Sub MFS()
Dim i As Integer
Dim n, m As Integer
Dim myRan1 As Range
n = Application.Range("A65536").End(xlUp).Row
For i = 1 To n                                        'i基金筆數
    If Year(.Cells(i, 1)) = 2008 And Month(.Cells(i, 1)) = m Then               '我想要各找尋一月份的第一天和最後一天交易日的值
                                                                  '能不能使用這樣的方式寫←　或者還是要先轉換
                                                                  '不好意思！！我剛學沒多久；可能要麻煩你一下
                                                                  '很多觀念上還不大懂　　謝謝你的答覆︿︿
       For m = 1 To 12                     '1-12月
         
          Set myRan1 = Columns("A:A")        ???????這裡不曉得怎麼寫才好
         
       Next m
      
    Else
    End If
Next i
   
End Sub
＜一月的最後一天　最後1天　減一月的第1天　除以一月的第1天：為月報酬率＞