确实，VBA本身并没有原生支持像C#那样的/* */行内块注释——VBA的标准注释符'会注释掉该行从它开始往后的所有内容，没法直接实现“只注释行内某一段、移除标记就能恢复”的效果。不过我们可以用几种方法来模拟这个需求，下面是几个实用的方案：

方案1：利用条件编译实现可切换的代码段 #

这是最接近原生块注释体验的方法，通过定义编译常量来快速启用/禁用指定代码段，甚至可以实现行内的部分注释效果。

举个例子：

#Const USE_ORIGINAL_CODE = False ' 改成True就能启用被"注释"的代码

Sub CalculateTotal()
    Dim total As Double
    total = 150 ' 基础价格
    #If USE_ORIGINAL_CODE Then
        total = total - (total * 0.2) ' 原本的折扣计算逻辑，默认被"注释"
    #End If
    MsgBox "最终价格：" & total
End Sub

你只需要修改USE_ORIGINAL_CODE的值，就能快速切换代码是否生效，完全不需要手动删除或添加注释符，非常适合记录临时修改的逻辑。

方案2：手动用'标记行内注释 #

这是最简单的临时方案，虽然不是严格的“行内块注释”，但能满足快速注释/恢复行内部分代码的需求。

比如：

Sub ProcessData()
    Dim rawData As Variant
    rawData = Range("A1:A10").Value ' 原本是 rawData = Range("A1:A20").Value
    ' 或者行内中间注释：
    Call UpdateReport(Sheet1, 'Sheet2, Sheet3, '只更新Sheet1，临时注释掉其他工作表)
End Sub

要恢复代码时，只需要把'移到对应代码的后面，或者直接删除注释符即可。缺点是如果要注释的行内代码很长，手动标记会有点麻烦，但胜在不用额外配置。

方案3：编写VBA宏实现快速添加/移除行内注释标记 #

如果你经常需要做行内部分注释，可以写两个小宏来自动化这个过程，实现类似/* */的快速切换：

' 给选中的行内代码添加注释标记
Sub AddInlineCommentTag()
    Dim sel As TextSelection
    Set sel = Application.VBE.ActiveCodePane.CodeModule.CodePaneWindow.Selection
    ' 用自定义标记包裹选中内容
    sel.Text = "'/* " & sel.Text & " */'"
End Sub

' 移除选中内容的注释标记，恢复代码
Sub RemoveInlineCommentTag()
    Dim sel As TextSelection
    Set sel = Application.VBE.ActiveCodePane.CodeModule.CodePaneWindow.Selection
    sel.Text = Replace(Replace(sel.Text, "'/* ", ""), " */'", "")
End Sub

使用方法：

• 在VBA编辑器中选中要注释的行内代码片段
• 运行AddInlineCommentTag宏，选中的代码会被'/* 和 */'包裹，实现注释效果
• 要恢复时，选中这段被标记的代码，运行RemoveInlineCommentTag宏即可快速恢复

这三个方案各有优劣，可以根据你的使用场景选择：条件编译适合需要长期保留的可切换代码，手动标记适合临时快速注释，宏工具适合频繁操作的场景。

内容的提问来源于stack exchange，提问作者Antoine Pelletier