vba 程序意思 以下每一段代表什么意思？

简单来说，就是在第一个工作表 Sheets(1) 的 A 列查找所有 “bom”字样的行，且该单元格的值等于 第二个工作表 Sheets(2) 的 B2 单元格的值。

然后把这些满足条件的单元格所在行的 A ～ G 列共 7 个单元格的值全部复制到第二个工作表 Sheets(2) 的 D2 单元格开始的区域。

说句实在话，If Rng(r, 1) Like "*bom*" Then x = r 这句代码多余！

因为下面就有 If Rng(r, 1) = n Then 这句没有模糊空间的代码！

所以，只要把

arr(tr, c) = Rng(x, c)

直接改成

arr(tr, c) = Rng(r, c)

即可。还可以省去一个无用的变量 x！

选C。

一共三层循环

sum初值为0 且只在第三层循环中执行自增

也就是说第三层循环执行几次 sum最后的值就是几

第一层循环1 to 3 执行3次

在3次循环中又执行了第二层循环

第二层循环分别是1 to 4、2 to 4、3 to 4 共执行9次

在9次循环中又执行了第三层循环

第二层循环分别是1 to 5、2 to 5、3 to 5、4 to 5

2 to 5、3 to 5、4 to 5

3 to 5、4 to 5

函数：

Python的函数支持递归、默认参数值、可变参数，但不支持函数重载。为了增强代码的可读性，可以在函数后书写“文档字符串”(Documentation Strings，或者简称docstrings)，用于解释函数的作用、参数的类型与意义、返回值类型与取值范围等。可以使用内置函数help()打印出函数的使用帮助。

以上内容参考：百度百科-Python

将以下程序段放到工作表Sheet1的程序模块中：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim strSheetname As String

On Error Resume Next

If Target.Address(False, False) = "A1" Then

strsheetname = ""

If Target.Value = "是" Then

strSheetname = "Sheet2"

ElseIf Target.Value = "否" Then

strSheetname = "Sheet3"

End If

If strSheetname <>"" Then

Worksheets(strSheetname).Activate

End If

End If

End Sub

如果需要在A1单元格和B1单元同时满足条件时执行跳转也是一样，只需要在程序中增加相应的判断条件就OK了。你试试！

注：不好意思，刚才有条语句把变量名写错了，应该是可以的，我已经试过了。错误的语句是给strSheetname赋空值的那条，原来的多了一个t，现在已经改过了。

---