如何将 Excel 中的常规文本替换为 HTML 无序列表（用于导出为 CSV）？

Question

如何将 Excel sheet 中的特定列转换为 HTML 无序列表？从这里开始：

Item 1
Item 2
Item 3

至：

<ul>
<li>Item 1</li>
<li>Item 2</li>
<li>Item 3</li>
</ul>

我在网上搜索过，但找不到任何接近解决方案的东西。

Answer 1

假设数据在 ColumnA 中，在另一列中：

="<li>"&A1&"</li>"

向下复制以适应，在顶部添加 <ul>，在底部添加 </ul>，select 另一列复制、选择性粘贴、顶部的值并删除 ColumnA。

Answer 2

这可能行不通，用记事本写的.. 如果将其添加到新模块，则可以像使用公式一样使用它，指定要转换为列表的范围。

例如：=getUnorderedList(A1:A10) - 您将无法使用 A:A 类型引用来使用当前写入的整个列。

Public Function getUnorderedList(ByRef Target As Range) As String
Dim Result As String: Result = ""
Dim Cell As Variant

    For Each Cell in Target.Cells
        Result = Result & "<li>" & Cell.Value & "</li>" & vbNewLine 
    Next Cell

    getUnorderedList = "<ul>" & vbNewLine & Result & "</ul>"
End Function

如何将 Excel 中的常规文本替换为 HTML 无序列表（用于导出为 CSV）？

How to replace regular text in Excel into HTML unordered list (for export to CSV)?

excel

excel-formula

concatenation

export-to-csv

worksheet-function