excel - Perl(或Python)和Excel有没有办法确定单元格中多行文本使用的字体类型？

Question

我有 Excel 文件形式的数据，其中某些单元格包含字符串，其中包含以删除线字符表示的先前版本的数据。我知道如何使用 Perl 和 OLE 来解析/操作 Excel 文件，但我只看到可以在单元格级别访问文本格式。有没有一种方法可以逐个字符地访问格式？目标是找到并消除所有格式化为删除线的文本。

Answer 1

这是一个 VBA 解决方案，因为我的计算机上没有安装 Python。希望它能够展示访问单个字符格式的方法。

以下是Range("A1"):

Option Explicit

Sub test()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sentence As Range
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    Set sentence = ws.Range("A1")

    With sentence
        Dim i As Long
        For i = 1 To .Characters.Count
            If .Characters(i, 1).Font.Strikethrough Then
                Debug.Print "strikethrough at character " & i
            End If
        Next i
    End With
End Sub

给出输出:

strikethrough at character 17
strikethrough at character 18
strikethrough at character 19