【VBAとPythonどっちがいい？②】月末月初を取得するコードで違いを解説

Sub VBA()
    Dim ws As Worksheet
    Dim table As ListObject
    Dim maxRow As Long
    
    'シートの取得
    Set ws = Workbooks("VOO.csv").Worksheets(1)
    
    '表をテーブル化して取得
    '既にテーブル化している場合は、再度テーブル化するとエラーが出るので回避
    Set table = ws.Cells(1, 1).ListObject
    If table Is Nothing Then
        Set table = ws.ListObjects.Add(xlSrcRange, ws.Cells(1, 1).CurrentRegion, , xlYes)
    End If
    
    '絞り込み
    table.Range.AutoFilter field:=1, Criteria1:=">=2022/3/8", Operator:=xlAnd, Criteria2:="<=2023/2/28"
    
    '最終行を取得し、値取得
    maxRow = table.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible).Count
    Debug.Print (table.ListColumns("Date").DataBodyRange(246))
    '>>2023/02/28
End Sub

Sub VBA2()
    '========================前回までと同じ=================================================
    Dim ws As Worksheet
    Dim table As ListObject
    Dim maxRow As Long
    
    'シートの取得
    Set ws = Workbooks("VOO.csv").Worksheets(1)
    
    '表をテーブル化して取得
    '既にテーブル化している場合は、再度テーブル化するとエラーが出るので回避
    Set table = ws.Cells(1, 1).ListObject
    If table Is Nothing Then
        Set table = ws.ListObjects.Add(xlSrcRange, ws.Cells(1, 1).CurrentRegion, , xlYes)
    End If
    '=======================================================================================
    
    
    Dim r As Range
    Dim sDate, eDate As Date
    Dim dateLists As Variant
    
    Dim i As Long
    
    For i = 1 To table.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible).Count
        With table.ListColumns("Date")
        
            '最初（2022年3月）の開始日は予め入れておく
            'ここではまだ配列に入れない。
            '2022年3月の終了日を取得出来てから配列に入れる
            If i = 1 Then
                sDate = .DataBodyRange(1)
                
            '最後（2023年2月）の終了日は最終行の値を入れる
            '2023年2月の開始日と終了日を配列に入れる
            ElseIf i = .DataBodyRange.SpecialCells(xlCellTypeVisible).Count Then
                eDate = .DataBodyRange(i).Value
                Call add_Elm(dateLists, Array(sDate, eDate))
                
            '日付を一つ一つ確認していき
            '月が変われば（例えば2022年4月1日は一つ前が2022年3月31日。よって月が変わる）
            '終了日を取得し、前回取得しておいた開始日とあわせて配列に格納する
            '次の開始日をここで取得しておく
            ElseIf Month(.DataBodyRange(i).Value) <> Month(.DataBodyRange(i - 1).Value) Then
                eDate = .DataBodyRange(i - 1).Value
                Call add_Elm(dateLists, Array(sDate, eDate))
                sDate = .DataBodyRange(i).Value
            End If
        End With
    Next
          
End Sub

############前回と同じ#########################################################
import pandas as pd
import datetime as dt

#ファイルを開いてデータフレームを取得
df=pd.read_csv("./VOO.csv")

#日付のデータ型を日付型に変える
df["Date"]=pd.to_datetime(df["Date"],format="%Y-%m-%d")

#日付をインデックスにして検索や絞り込みをしやすくする
df=df.set_index("Date",drop=False)

#日付で絞る
df=df.loc[dt.datetime(2022,3,8):dt.datetime(2023,2,28)]
###############################################################################

#データフレームを月毎に区分けして
#それぞれの月初日のリスト→firsts 月末日のリスト→lasts　に取得
firsts=df.resample("M").first()["Date"].tolist()
lasts=df.resample("M").last()["Date"].tolist()

#firstsとlastsをdatelistsに格納
datelists=[]
for first,last in zip(firsts,lasts):
    datelists.append([first,last])
datelists