请给这段vba语言添加注释让我看懂 谢谢

1是B列最后一个非空单元格行号，ROW即行；
2即单元格区域B3：C最后一行，如C列最后一行是第10行，那么Range("B3:C"&b) 就是B3：C10单元格区域；copy到cells(j,2)是从这个单元格为顶点单元格与被copy 的区域一样大的区域，并不是一个单元格。
3 & 是连接符
Sub mysub()
Dim start As Double, sh As Worksheet, B As Integer, j As Integer ' 定义四个变量
start = Timer '记录起始时间
ApplicationScreenUpdating = False '不d出错误提示
ActiveSheetRange("b3:f65536") = "" '清空B到F列的数据
For Each sh In ThisWorkbookWorksheets '建立工作表循环
j = ActiveSheet[b65536]End(xlUp)Row + 1 '给J赋值为当前工作表B列最后一个非空单元格下一行
If shName <> "外在本就读花名册" Then '当工作表名不为外在本就读花名册时
B = sh[b65536]End(xlUp)Row '给B赋值为不是外在本就读花名册B列最后一个非空单元格行号
shRange("b3 :c" & B)Copy Sheets("外在本就读花名册")Cells(j, 2) ' 依次COPY数据到外在本就读花名册中
shRange("e3 :e" & B)Copy Sheets("外在本就读花名册")Cells(j, 4)
shRange("k3 :k" & B)Copy Sheets("外在本就读花名册")Cells(j, 6)
shRange("l3 :l" & B)Copy Sheets("外在本就读花名册")Cells(j, 5)
End If
Next
MsgBox "程序共执行了" & Timer - start & "秒!" '计算程序运行的时间
ApplicationScreenUpdating = True '恢复警告提示
End Sub

Sub cond(row As Integer)
Open Range("a" & Format(row))Value For Output As #1 '打开A列row行单元格保存文件名的文件，并放在#1读写端口通道
'分别用 Print #1 语句，向 #1 通道即刚才打开的文件写入各单元格的内容，单元格为A列row+1行；B列row+1行；C列row+1行
Print #1, Sheet7Range("a" & Format(row + 1))Value; Sheet7Range("b" & Format(row + 1))Value; Sheet7Range("c" & Format(row + 1))Value
'分别用 Print #1 语句，向 #1 通道即刚才打开的文件写入各单元格的内容，单元格为A列row+2行；B列row+2行
Print #1, Sheet7Range("a" & Format(row + 2))Value; Sheet7Range("b" & Format(row + 2))Value
'分别用 Print #1 语句，向 #1 通道即刚才打开的文件写入各单元格的内容，单元格为A列row+3行；B列row+3行；C列row+3行
Print #1, Sheet7Range("a" & Format(row + 3))Value; Sheet7Range("b" & Format(row + 3))Value; Sheet7Range("c" & Format(row + 3))Value
'分别用 Print #1 语句，向 #1 通道即刚才打开的文件写入各单元格的内容，单元格为A列row+4行；B列row+4行
Print #1, Sheet7Range("a" & Format(row + 4))Value; Sheet7Range("b" & Format(row + 4))Value
Close #1 '关闭通道#1，并关闭文件
Dim tmp
'用shell函数调用condexe程序，并返回condexe 程序的任务ID，如果调用失败，返回0；程序执行时有参数分别在A列row行和B列的row行。
'shell参数最后一个 ",1)" 表示程序运行时窗体是否获得焦点
tmp = Shell("condexe " & Sheet7Range("a" & Format(row))Value & " " & Sheet7Range("b" & Format(row))Value, 1)
End Sub

这个真没有哦，语句都是开发人员根据自己的要求、理解来编写的，软件 还没有办法做到这一步的；想学习的话只能一步步，一点点积累了，这样你会发现慢慢的能看懂；还可以结合网络或EXCEL VBA的帮助文件来查寻。

---