子弹点中的输出列表

Question

我希望这个宏在没有下划线的项目符号中输出列表，字体大小为18.我该怎么做？

With ActiveSheet
    Set ListStart = .Range("L13")

    For Each sh In ActiveWorkbook.Worksheets
        For Each pvt In sh.PivotTables



         .Hyperlinks.Add Anchor:=ListStart.Offset(i, 0), Address:="", SubAddress:= _
        pvt.TableRange2.Cells(1).Address(external:=True), TextToDisplay:=pvt.Name


                i = i + 1



        Next pvt
    Next sh
End With

ListStart.Select

Answer 1

您可以在单元格中使用“•”字符。 TextToDisplay = "• " & pvt.Name或类似的东西。

至于更改字体大小，Cells.Font.Size = "18"（我会让你理清细节）会这样做。

除非您指定，否则不会显示下划线，因此应该足够。

希望这有帮助！