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

如何将Excel工作表中的特定列转换为HTML无序列表？从这个角度出发：

Item 1
Item 2
Item 3

致：

项目1
项目2
项目3

---

我在网上搜索过，找不到任何与解决方案非常接近的内容。

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

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

=“
”&A1&“
”

---

向下复制以适应，在顶部添加

，在底部选择另一列副本，在顶部粘贴特殊值并删除列A。

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

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

=“
”&A1&“
”

---

向下复制以适应，在顶部添加

，在底部选择另一列副本，在顶部粘贴特殊值并删除列A。

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

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

=“
”&A1&“
”

---

向下复制以适应，在顶部添加

，在底部选择另一列副本，在顶部粘贴特殊值并删除列A。

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

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

=“
”&A1&“
”

---

根据需要向下复制，在顶部添加

，在底部选择另一列副本，在顶部粘贴特殊值并删除列A。

这可能不起作用，在记事本中写入。。 如果将其添加到新模块，则可以将其用作公式，指定要转换为列表的范围

例如：

=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

公共函数getUnorderedList（ByRef目标作为范围）作为字符串
将结果变暗为字符串：Result=“”
变暗细胞
对于Target.Cells中的每个单元格
Result=Result&“
”&Cell.Value&“
”&vbNewLine
下一个细胞
getUnorderedList=“
”&vbNewLine&Result&“
”
端函数

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

例如：

=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

公共函数getUnorderedList（ByRef目标作为范围）作为字符串
将结果变暗为字符串：Result=“”
变暗细胞
对于Target.Cells中的每个单元格
Result=Result&“
”&Cell.Value&“
”&vbNewLine
下一个细胞
getUnorderedList=“
”&vbNewLine&Result&“
”
端函数

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

例如：

=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

公共函数getUnorderedList（ByRef目标作为范围）作为字符串
将结果变暗为字符串：Result=“”
变暗细胞
对于Target.Cells中的每个单元格
Result=Result&“
”&Cell.Value&“
”&vbNewLine
下一个细胞
getUnorderedList=“
”&vbNewLine&Result&“
”
端函数

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

例如：

=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

公共函数getUnorderedList（ByRef目标作为范围）作为字符串
将结果变暗为字符串：Result=“”
变暗细胞
对于Target.Cells中的每个单元格
Result=Result&“
”&Cell.Value&“
”&vbNewLine
下一个细胞
getUnorderedList=“
”&vbNewLine&Result&“
”
端函数

是否要更改原件？或者只是以新格式复制一份值？第一种方法需要使用vba，第二种方法只需使用一个公式和一点手动编辑即可。是否要更改原始格式？或者只是以新格式复制一份值？第一种方法需要使用vba，第二种方法只需使用一个公式和一点手动编辑即可。是否要更改原始格式？或者只是以新格式复制一份值？第一种方法需要使用vba，第二种方法只需使用一个公式和一点手动编辑即可。是否要更改原始格式？或者只是以新格式复制一份值？第一种情况下，您需要使用vba，第二种情况下，您只需使用公式和少量手动编辑即可。这只会在单元格的整个内容周围添加

。

，而不是在cell.Variable中的每一行周围添加。从1到10的任意位置。老实说，我可以跳过整个

…

部分，只关注添加

标签，如果这更容易的话。BAM！就这样。与此相关的另一个问题-是否有任何方法可以删除/消除某些内容后的所有空白/额外空行？因为有些条目有额外的空行，因此会产生空白的

条目。谢谢。这只会在单元格的整个内容中添加

。

，而不是在cell.Variable中的每一行中添加。从1到10的任意位置。老实说，我可以跳过整个

…

部分，只关注添加

标签，如果这更容易的话。BAM！就这样。与此相关的另一个问题-是否有任何方法可以删除/消除某些内容后的所有空白/额外空行？因为有些条目有额外的空行，因此会产生空白的

条目。谢谢。这只会在单元格的整个内容中添加

。

，而不是在cell.Variable中的每一行中添加。从1到10的任意位置。而且相当