大哥，求翻译VBA语句

VBA语句翻译。请大侠们帮忙翻译一下，让我学习一下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '当工作表选区发生改变时执行本程序(固定格式) If Target.Count = 1 And Target.Row = 3 And Target.Column = 1 Then Rows("4:65536").ClearContents: Range("A4").Select '如果 Target的计数值=1 并且 Target的行标=3 并且 Target的列标=1 则执行 <行>坐标("4:65536" )的清除内容:<单元格>区域("A4" )的选定 If Targ

VBA代码求翻译？

Private Sub CommandButton2_Click() tms = Timer '记录程序开始运行的时间，关屏幕刷新和告警弹框显示 Application.ScreenUpdating = False Application.DisplayAlerts = False '遍历所有工作表，把当前活动工作表以外的全删除，然后打开告警弹框显示 For Each sht In Sheets If sht.Name <> ActiveSheet.Name Then sht.Delete Next Application.DisplayAlerts = True '定义字典和二维数组，数组里

vba语法翻译，求大神给翻译翻译。

Sub Macro1() '定义变量 Dim i, j Dim wb As Workbook, arr, rng As Range '关闭画面刷新 Application.ScreenUpdating = False '如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该属性值为 True。Boolean 类型，可读写。 Application.DisplayAlerts = False '将当前文件路径下的excel文件——数据源 赋给变量wb Set wb = GetObject(ThisWorkbook.Path & "\数据源.xls") '数组 赋值 等于数据源的

求EXCEL中的VBA语言的翻译

录制宏的代码，意义性非常低，冗余语句太多！

SubMacro1()
Application.ScreenUpdating=False'禁止屏幕刷新
Sheet1.Select'选定Sheet1工作表
DimiAsInteger'定义整型变量i
DimbAsInteger'。。。。。。b
i=Sheet2.[J65536].End(xlUp).Row
'i等于Sheet2工作表J列最后一个有数据的单元格的行标
b=Sheet3.[B65536].End(xlUp).Row+1
'b等于Sheet3工作表B列最后一个有数据的单元格下一行的行标
Range("C1:D1").Select'选定C1:D1区域，记为XX
Selection.Copy'复制上面的选定语句
Range("E2:F2").Select'选定E2:F2区域，记为YY
Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_
:=False,Transpose:=False'粘贴复制的数据XX到YY
Range("A2:AQ18").Select'选定E2:F2区域，记为zz
Selection.Copy'复制上面的选定语句
Sheets("当月").Select'选定工作表名称为"当月"的工作表
Ifi=1Then'如果i=1，那么
Range("J"&i).Select'选定J1单元格
ActiveSheet.Paste'当前工作表粘贴上面复制的数据zz
Else'如果i不等于1，那么
Range("J"&i+2).Select'选定J列i+2行的单元格
ActiveSheet.Paste'当前工作表粘贴上面复制的数据zz
EndIf
Sheets("汇总").Cells(b,1)=Sheet1.Range("C1")
'汇总工作表的第b行，第1列单元格数据=Sheet1工作表的C1单元格数据
Sheets("汇总").Cells(b,2)=Sheet1.Range("Z10")
'汇总工作表的第b行，第2列单元格数据=Sheet1工作表的Z10单元格数据
Sheets("汇总").Cells(b,3)=Sheet1.Range("AA3")
'汇总工作表的第b行，第3列单元格数据=Sheet1工作表的AA3单元格数据
Sheets("汇总").Cells(b,4)=Sheet1.Range("AA4")
'汇总工作表的第b行，第4列单元格数据=Sheet1工作表的AA4单元格数据
Sheets("汇总").Cells(b,5)=Sheet1.Range("AA5")
'汇总工作表的第b行，第5列单元格数据=Sheet1工作表的AA5单元格数据
Sheets("汇总").Cells(b,6)=Sheet1.Range("AA6")
'汇总工作表的第b行，第6列单元格数据=Sheet1工作表的AA6单元格数据
Sheets("汇总").Cells(b,7)=Sheet1.Range("AA7")
'汇总工作表的第b行，第7列单元格数据=Sheet1工作表的AA7单元格数据
'同上
Sheet1.Select'选定Sheet1工作表
Application.CutCopyMode=False'剪贴数据模式关闭
ActiveCell.FormulaR1C1=""'当前活动单元格数据清空
Range("A1").Select'选择A1单元格
Application.ScreenUpdating=True'允许屏幕刷新
EndSub

谁能帮我翻译下VBA这个语句啥意思

x=3
DoWhileNot(IsEmpty(Sheets("员工登记表").Cells(x,3).Value))
x=x+1
Loop

x=3

从“员工登记表“的C列第x行开始，如果该行不是空值就继续向下对照，同时x+1，一直到最后一个非空单元格

x=该单元格所在行的行号

flag=0
Fori=1Tox
IfSheets("录入登记表").Cells(3,3)=Sheets("员工登记表").Cells(i,3)Then
flag=9
ExitFor
EndIf
Next

Ifflag=9Then
x=i
EndIf

判断”员工登记表“C列是否有单元格等于”录入登记表“的C3，如果有的话，x=该单元格的行号