Excel vba中如何注释掉一整段编码

你的意思是把一段代码都变成注释，但不删除内容？

是的话可参考：先选中需要批量注释的内容，再点击“设置注释块”即可。

后边紧挨着的按钮是撤销注释按钮，方法一样。

（先右键工具栏空白处，添加“编辑”工具栏）

1. Sub 计算()

Dim a as Integer '定义变量 a 为 整数型

a=Val(InputBox(“请输入一整数a”) ‘将对话框中输入的值转化为数值并赋值给变量a

If a>=0 Then ’条件语句，如果a大于等于零

a=a+10 ‘则，变量a等于原变量值+10

Else ’否则a小于零

a=-a+10 ‘变量a等于10-变量a

End ’条件语句结束

Sheet1.Activate ‘激活sheet1表

Cells(1, 1) = a ’将变量a的值写入单元格A1

End Sub ‘过程结束

2.Sub color()

For k = 1 To 7 ’循环语句，执行7次

c = "A" &k ‘’确定单元格，如A1 、A2

Range(c).Select ‘选定单元

Selection.Interior.ColorIndex = k ’给选定的单元格标色

Next

End Sub 该过程执行完后会给A1Z至A7单元格表上7种颜色。

具体如下：

1、简介

EXCEL表处理软件是美国微软公司研制的办公自动化软件OFFICE 中的重要成员，经过多次改进和升级，最新版本为EXCEL2000。它能够方便的制作出各种电子表格，使用公式和函数对数据进行复杂的运算用各种图表来表示数据直观明了利用超级链接功能，用户可以快速打开局域网或Interner上的文件，与世界上任何位置的互联网用户共享工作薄文件。

2、软件

Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表，可以实现许多方便的功能，带给使用者方便。与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

3、百科名片

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

    s = Timer

    Range("A1:D50").ClearComments  '清除A1:D50所有批注

    With [a1]   '设置A1单元格的批注

        .ClearComments

        .AddComment Text:="Comment"

        .Comment.Visible = False

        With .Comment.Shape

            With .TextFrame.Characters.Font

                .Name = "微软雅黑"

                .Size = 12

                .ColorIndex = 2

            End With

            .Fill.ForeColor.SchemeColor = 41

            .Line.Visible = msoFalse

        End With

        .Copy   '复制A1单元格

    End With

    Range("A1:D50").PasteSpecial xlPasteComments  '选择性粘贴，只粘贴批注

    Dim c As Range

    For Each c In Range("A1:D50")   '设置A1:D50中的每个单元格的批注

        With c

            .Comment.Text .Address

        End With

    Next c

    Application.CutCopyMode = False

    MsgBox "耗时" & (Timer - s) & "秒"

End Sub

在A1单元格里设置好批注，然后复制A1单元格，在区域A1:D50用Excel的选择性粘贴来复制批注。然后根据需要逐个修改该批注。