Win10 - Excel 2010 - 需要宏在单元格中单个希伯来语单词的每个字母之间放置连字符

Win10 - Excel 2010 - 需要宏在单元格中单个希伯来语单词的每个字母之间放置连字符

目标是将《塔纳赫》/《旧约》中每个单词的每个希伯来字母分成单独的单元格。如果我手动在单词中的每个字母之间放置连字符,然后“文本到列”会将每个字母放在单元格中,并保持 nikud/accents 不变。[对于项目,字母将垂直放置在表格中。]

我发现一个宏可以很好地在英文单词字母之间放置连字符;然而,它甚至在希伯来语标记之间放置连字符。

א-ֲ-ש-ׁ-ַ-ל-ּ-ֵ-֖-ם

נ-ְ-ד-ָ-ר-ֶ-֑-י-ך-ָ

https://excel.tips.net/T009633_Adding_Dashes_between_Letters.html

Sub AddDashes1()
    Dim Cell As Range
    Dim sTemp As String
    Dim C As Integer

    For Each Cell In Selection
        sTemp = ""
        For C = 1 To Len(Cell)
            sTemp = sTemp + Mid(Cell, C, 1) + "-"
        Next
        Cell.Value = Left(sTemp, Len(sTemp) - 1)
    Next
End Sub

不幸的是,我对编写代码一无所知。有没有办法告诉宏只在希伯来字母之间放置连字符,加上 maqqef、paseq、sof-pasuq - 并忽略 nikud/重音符号?(任何数字都不会保留。)

‎7 ‏免费

לֵאלֹהִֽים׃פ

在手动输入《约伯记》几章的连字符后...更简单、更柔和的方式将非常受欢迎。:)

相关内容