在VBA中，如何把一大段程序注释掉

步骤一、首先打开一个EXCEL程序。

步骤二、然后打开VBA编程的界面。

步骤三、定义一个函数。

步骤四、然后使用“rem+空格+注释内容”。

步骤五、用英文字符的上单引号“注释内容”。

步骤六、然后“rem+空格+注释内容”。

步骤七、最后对于幅值对象进行的赋值。

VBA中代码注释的功能啊。。

就是在任意代码后面增加一个单引号'，在同行单引号后面的所有内容即被视为注释。

给你一段代码看看：

Sub Macro1()

'VBA替换日期型数据

Dim cz As String, th As String

cz = "????-*-*" '查找内容

th = 41118 '替换内容

Dim c As Range '循环变量，代表选中区域内的每个单元格

'注意，先选择替换的区域，注意不要选择错了地方，再执行宏，否则后果比较严重

'下面的selection即表示被选择的区域

For Each c In Selection'循环选中区域的每一个单元格

If c.Text Like cz Then '如果单元格的显示形式和????-*-*格式一样

c.Value = th'替换

End If

Next

End Sub

Sub ek_sky()

  Dim arr1, i&, j$

  '得到F1:Fx的区域，其中x取决于A列最后一个单元格的行，例如：A1到A10都有内容，A11开始就没内容了，那么arr1得到的区域就是F1:F10

  arr1 = Range("f1:f" &Cells(Rows.Count, 1).End(3).Row)

  'i从1到arr1区域中单元格的数量

  For i = 1 To UBound(arr1)

      '如果arr1中第(i,1)个元素的内容包含以通配符表示的"*小节*"，那就执行IF内的语句

      If arr1(i, 1) Like "*小节*" Then

          j = j &",A" &i

      End If

  Next i

  'j变量中保存的是F列中包含有"*小节*"的对应的A列单元格，如",A1,A2"，由于前面有个逗号，所以需要使用Mid(j,2)，以此来从第2个符号开始往后取，以去掉最前面的逗号

  '下面整句的使用就是将包含"*小节*"内容的行全都选中

  Range(Mid(j, 2)).EntireRow.Select

End Sub

---