如何將Excel中的常規文本替換為HTML無序列表（用於導出為CSV）？

Question

如何將Excel工作表中的特定列轉換為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> </ul> ，選擇另一列“復制”，“選擇性粘貼”，“頂部的值”，然后刪除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