VBA Excel更改斜体并添加</和/>

Darius 发表于 Dev

大流士

我想知道是否有人遇到过这样的事情。

我在Excel列中有一个列表，该列表的文本中插入了斜体。就像是：

第一排：减少了Calidris pugnax的分布

第二行：斜纹夜蛾不再是受威胁的物种

第三行：将实施一种针对鳞翅目的方法

第四排：西尼西亚松萝现已灭绝

...

我需要在Excel中使用一些VBA代码获得如下所示的信息：在斜体字之前和之后插入这些标签。

第一行：减少了<1> Calidris pugnax <2>的分布

第二行：<1> Hydrotaea glabricula <2>不再是受威胁物种

第三行：将实施<1> Peltigera lepidophora <2>的方案

第四行：<1> Usnea silesiaca <2>现在已灭绝

...

你有什么想法吗？这将在仅识别标签的网站中使用（<1>和<2>仅在此处用于表明我的需要）而没有斜体。

问候，

达斯科

罗里

您可以使用这样的例程：

Sub TagItalics()
    Dim lngStart As Long
    Dim lngFinish As Long
    Dim n As Long
    Dim rngCell As Range
    Dim rngConstants As Range

    On Error Resume Next
    Set rngConstants = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0

    If Not rngConstants Is Nothing Then
        Application.ScreenUpdating = False
        For Each rngCell In rngConstants.Cells
            lngStart = 0
            For n = 1 To Len(rngCell.Value)
                If rngCell.Characters(n, 1).Font.Italic Then
                    If lngStart = 0 Then lngStart = n
                ElseIf lngStart <> 0 Then
                    lngFinish = n
                    Exit For
                End If
            Next n
            If lngStart <> 0 Then
                rngCell.Characters(lngStart, 0).Insert "<1>"
                rngCell.Characters(lngFinish + 3, 0).Insert "<2>"
            End If
        Next rngCell
        Application.ScreenUpdating = True
    End If

End Sub