主页 / 问题 / 1603362
Accepted
Balthasar Es
Asked:2024-12-25 22:33:18 +0000 UTC2024-12-25 22:33:18 +0000 UTC

如何在libreoffice calc中每10行插入一个空行

  • 772

如何在 libreoffice calc 中每 10 行插入一个空行，如下所示： 结果应该是这样的

做到这一点最简单的方法是什么？有很多台词；我不擅长编程。

libre-office

1 个回答

  1. Best Answer

    仅通过宏粘贴，从末尾粘贴

    Sub InsertEmptyRows
   
    Dim oDoc As Object
    Dim oSheet As Object
    Dim i As Long
    Dim rowCount As Long
    
    oDoc = ThisComponent
    oSheet = oDoc.CurrentController.ActiveSheet ' Получаем активный лист
    rowCount = 80 ' Последняя строка от которой делить по 10
    
    For i = rowCount To 1   Step -1
        If (i Mod 10) = 0 Then 
            oSheet.Rows.insertByIndex(i, 1) ' Вставляем пустую строку
            
        End If
    Next i

   
End Sub

    在此输入图像描述

    • 0

相关问题