LibreOfficeのVBAのコードをChatGPTに書いてもらった話

Option VBASupport 1

Sub DistributeNames()
    Dim oSheet As Object
    Dim oTargetSheet As Object
    Dim oSheets As Object
    Dim lastRow As Long
    Dim totalNames As Long
    Dim numLists As Long
    Dim maxPerList As Long
    Dim i As Long, j As Long, count As Long

    ' 初期設定
    oSheet = ThisComponent.Sheets.getByName("Sheet1")
    oSheets = ThisComponent.Sheets
    maxPerList = 10 ' 各List_Xの上限人数

    ' A列の最終行を取得
    lastRow = GetLastRow(oSheet, 0) ' 0はA列
    totalNames = lastRow ' 合計人数

    ' 必要なList_Xの数を計算
    numLists = Int((totalNames + maxPerList - 1) / maxPerList)

    ' 各List_Xシートを作成・初期化
    For i = 1 To numLists
        Dim sheetName As String
        sheetName = "List_" & i
        If oSheets.hasByName(sheetName) Then
            oTargetSheet = oSheets.getByName(sheetName)
        Else
            oSheets.insertNewByName(sheetName, oSheets.getCount())
            oTargetSheet = oSheets.getByName(sheetName)
        End If
        ' シート内容をクリア
        For j = 0 To maxPerList - 1
            oTargetSheet.getCellByPosition(0, j).String = ""
        Next j
    Next i

    ' 名前を均等に振り分け
    count = 1
    For i = 1 To totalNames
        Dim currentList As Long
        currentList = Int((count - 1) / maxPerList) + 1
        oTargetSheet = oSheets.getByName("List_" & currentList)
        j = (count - 1) Mod maxPerList
        oTargetSheet.getCellByPosition(0, j).String = oSheet.getCellByPosition(0, i - 1).String
        count = count + 1
    Next i

    MsgBox "振り分けが完了しました！", 64, "完了"
End Sub

Function GetLastRow(oSheet As Object, col As Long) As Long
    Dim i As Long
    Dim cell As Object
    For i = 0 To 1048575 ' LibreOfficeの最大行数
        cell = oSheet.getCellByPosition(col, i)
        If cell.String = "" Then
            GetLastRow = i
            Exit Function
        End If
    Next i
End Function